比較して合致した項目の隣のセルに○を書く

VLOOKUPとかでやったほうが早そうだけど、あえて無駄な処理をさせてみた。
VLOOKUPで探すよりかなり時間がかかった。
この行数のデータ参照で10分近くかかったのでかなり実用的ではないなあという感じでした。

Sub DiffData()
    Dim a As Long
    Dim RanA As Range
    Dim RanB As Range
    Dim chkA As String
    
    For Each RanA In Range("TableA!A1:A7000")
        For Each RanB In Range("TableB!D1:D2000")
            If RanA.Cells.Value = RanB.Cells.Value Then
                RanA.Cells(1, 2).Value = "○"
　　　　　　　　Exit For
            End If
        Next
    Next
　   MsgBox ("Done!!")

End Sub