二つの表を比較して同じ表か確認したい

Question

二つの表を比較して同じか確認する
マクロを作成したいのですが、

①

A	B
k008	アメリカ
K008	カナダ
K008	オーストラリア

②

A	B
k008	中国
K008	カナダ
K008	オーストラリア

上記のような表が何10行とあります。

Aで比較しようとすると
同じものと認識されたのか比較されませんでした。

AとBを一つの文字として比較して確認したいのですが
誰か教えて下さい。

該当のソースコード

Sub sample2_1()
Dim hida As Long
Dim migi As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet3")

For migi = 10 To Cells(Rows.Count, 1).End(xlUp).Row
    For hida = 10 To Cells(Rows.Count, 1).End(xlUp).Row
        If ws2.Range("B" & migi).Value = ws1.Range("B" & hida).Value Then
            ws1.Range("V" & hida).Value = "OK"
            Exit For
        End If
    Next
Next

End Sub

二つにシートを比較して同じか確認したいです。

試したこと

If ws2.Range("A:B" & migi).Value = ws1.Range("A:B" & hida).Value Then
安易にやってみましたが当然ながらエラーでした。

Answer 1

それぞれ表の値を二次元配列に入れてループ回すだけでよいのではないですか。

Answer 2

これを

If ws2.Range("B" & migi).Value = ws1.Range("B" & hida).Value Then
ws1.Range("V" & hida).Value = "OK"
Exit For
End If

こうしてみる方法もあります

If ws2.Range("B" & migi).Value = ws1.Range("B" & hida).Value Then
    If ws2.Range("A" & migi).Value = ws1.Range("A" & hida).Value Then
        ws1.Range("V" & hida).Value = "OK"
        Exit For
    End If
End If

Comments

[tgsf]

ありがとうございます
試してみます