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 に答える