回答編集履歴

コードを一部修正

2020/10/31 22:19

投稿

スコア314

test CHANGED Viewed

@@ -16,7 +16,7 @@
         For i = x To 1 Step -1
-            If Not Sheets("Sheet2").Range("A:A").Find(What:=.Cells(i, 1)) Is Nothing Then
+            If Sheets("Sheet2").Range("A:A").Find(What:=.Cells(i, 1)) Is Nothing Then
                 .Rows(i).Delete