VBAコードは、その行の特定の列の値が別のワークシートで一致しない場合に行を削除します

Question

両方のワークシートの列Aのセルの値が一致していませんが、私は間違った出力とすべてのデータを削除します。適切なバージョンのコードを教えてください。

Lastrowo = ws1.Cells(Rows.Count, "B").End(xlUp).Row 
Lastrowc = ws2.Cells(Rows.Count, "B").End(xlUp).Row 

For x = 1 To Lastrowo 
    For m = 1 To Lastrowc 
    If Workbooks("A.xlsx").Sheets("Sheet1").Cells(x, 1).Value <> 
    Workbooks("B.xlsx").Sheets("Sheet1").Cells(m, 1).Value Then 
     Workbooks("A.xlsx").Sheets("Sheet1").Rows(x).EntireRow.Delete 
     Workbooks("B.xlsx").Sheets("Sheet1").Rows(m).EntireRow.Delete 
    End If 
    Next m 
Next x 

Answer 1

同じコードが、第二のループ

Lastrowo = ws1.Cells(Rows.Count, "B").End(xlUp).Row 
Lastrowc = ws2.Cells(Rows.Count, "B").End(xlUp).Row 

For x = 1 To Lastrowo 
    If Workbooks("A.xlsx").Sheets("Sheet1").Cells(x, 1).Value <> 
    Workbooks("B.xlsx").Sheets("Sheet1").Cells(x, 1).Value Then 
     Workbooks("A.xlsx").Sheets("Sheet1").Rows(x).EntireRow.Delete 
     Workbooks("B.xlsx").Sheets("Sheet1").Rows(x).EntireRow.Delete 
    End If 
Next x 

せずに私は下から上へ行くことによってループを逆に推薦します。
For x = Lastrowo To 1 Step - 1

は、同様のコードを扱う他の記事を参照してください：https://stackoverflow.com/a/47062983/4636801