回答編集履歴
1
説明追記
answer
CHANGED
|
@@ -1,4 +1,5 @@
|
|
|
1
|
-
Sheet2がアクティブでなければエラーになります。
|
|
1
|
+
元のコードではSheet2がアクティブでなければエラーになります。
|
|
2
|
+
Cells(Rows.Count, 1).End(xlUp)がアクティブシートのセルを指しています。シートを指定しましょう。
|
|
2
3
|
```VBA
|
|
3
4
|
ThisWorkbook.Worksheets("Sheet2").Range("A2", ThisWorkbook.Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)).EntireRow.Delete
|
|
4
5
|
```
|