用于选择行并在现有行上方插入的宏按钮

Question

我的表格列是 A:Q 数据输入从第 5 行开始。

Q 列单元格中公式的 Q 列 bc 中的 O 列日期戳中的条目：

例如。

=if(O5<>””,if(Q5,now()),””)

格式是

03Mar23

是否可以用 Q 中的公式创建宏按钮？

我需要根据 Q 的上个月（按月份名称）的单元格值选择行，复制并粘贴/重新插入现有行上方，但不包括 O 和 P 列中的数据。

我没有 vba/macro 经验，所以我不知道所有功能，除了它可能无法读取公式结果；只是公式本身。

Answer 1

您要向表中添加行吗？

如果是这样，我建议使用以下内容：

Set tbl = Worksheets("sheet name").ListObjects("tablename")
On Error Resume Next

Set rg = Worksheets("sheetname").Range("tablename[column name]").SpecialCells(xlCellTypeBlanks) 'selects all blank cells for that column

If rg Is Nothing Then
tbl.ListRows.Add
End If

如果您需要添加超过某个值，我会为范围内的每个单元格做一个代码

Set Rxg = Worksheets("EL").Range("B1:B500")
Set tbl = Worksheets("sheet name").ListObjects("tablename")
  For Each c In Rxg
   
   If c.Value = "*VALUE YOU NEED*" Then
    c.EntireRow.Insert
    End If
      next c

请记住，这将在满足此条件的每个单元格上方添加一行