テーブルの列Aの値が別の別の列Bの値のいずれとも一致しない場合に、テーブルの行を削除するマクロに取り組んでいます。現在、私のコードは最後の行を適切に削除していません。私は一生の間、その理由を理解することはできません。
これが私の現在のコードです:
Sub Stuff()
Dim rCell As Range, ColumnA As Range, ColumnB As Range
Dim rowPoint As Integer
Set ColumnA = ActiveWorkbook.Worksheets("Sheet1").Range("Table2[Column1]")
Set ColumnB = ActiveWorkbook.Worksheets("Sheet1").Range("Table1")
rowPoint = ColumnA.Count
On Error Resume Next
For i = rowPoint To 1 Step -1
For Each rCell In ColumnA
If Application.CountIf(ColumnB, rCell.Value) = 0 Then rCell.Rows.Delete
Next rCell
Next i
End Sub