〖VBA〗マクロを使用してシート間の検索をして一致しない場合、行削除したい

Question

前提・実現したいこと

Sheet1、Sheet2があり
Sheet2のA列に記載されている会員番号を検索値とし
Sheet1のA列に記載されている会員番号を検索し一致しない場合に行削除をしたい。
※コードに記述しているActiveSheetはSheet2です。

発生している問題・エラーメッセージ

エラーは発生していませんが、データ数が一致しないため処理が正常ではない。

該当のソースコード

Sub 非会員は削除()
    With ActiveSheet
        x = .UsedRange.Cells(.UsedRange.Count).Row 'A列最終行取得
    For i = x To 1 Step -1 '最終行から1行目まで下から順番
        If Not Columns.Find(.Cells(i, 1), Sheets("Sheet1").Cells(i, 1), xlValues, xlWhole) Then  '一致しない場合
            Sheets("Sheet1").Rows(i).Delete '行削除
        End If
    Next i
    End With
End Sub

補足情報（FW/ツールのバージョンなど）

Office 2019を使用しています。

Answer 1

次のコードでいかがでしょうか。

Sub 非会員は削除()
    Dim x As Long
    Dim i As Long
    
    With Sheets("Sheet1")
        x = .UsedRange.Cells(.UsedRange.Count).Row
        For i = x To 1 Step -1
            If Sheets("Sheet2").Range("A:A").Find(What:=.Cells(i, 1)) Is Nothing Then
                .Rows(i).Delete
            End If
        Next i
    End With
End Sub

Comments

[退会済みユーザー]

ご回答ありがとうございます。

問題なく作動しデータが一致している事も確認できました！