0

我试图有一个宏，在命令上，在 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
4

1 回答 1

0

只需添加这一行

ActiveSheet.Rows(Trim(rw) + ":" + Trim(rw + 1)).Insert
于 2012-06-13T16:03:49.780 回答