在结束前插入2行5行

Question

我正在尝试使用一个宏on命令，找到A列中最后一个使用过的单元格，然后在最后一个单元格之前的5行之前插入2行。

我在stackoverflow上找到了以下代码，用于查找最后使用过的单元格，但是无法使用它来添加2行。

Dim LastRow As Long
' Find the last row in column "C" (pass in whatever column you want, obviously)
LastRow = Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row
rw = LastRow - 5

Answer 1

只需添加此行

即可

ActiveSheet.Rows(Trim(rw) + ":" + Trim(rw + 1)).Insert