VB VBA 別のブックに同じ値があった場合チェックをつけたい。

Question

VB VBA の勉強中です。
二つブックがあったとして、もう片方のブックに同じ値があった場合、チェック（〇等）をつけたいと思っています。

片方のブックの（A1:10）に重複していた場合にC列チェックをつける。等
これだけの文なので、そこまで難しくないはずなのですが、情報が少なく、とてもじゃないけどわかりません。

どうか教えてください。

Sub Sample()
 Dim i

Dim Wb1, Wb2
Set Wb1 = 　'このブック
Set Wb2 = Workbooks(".xlsx")


'取得

If Wb2.Worksheets("Sheet1").Range("A1").Value = " " Then

End Sub

Comments

[kikukiku]

ソースを見ると、この知識で目的は達成できるのではと思いました。
具体的に何がわからないのですか？

Answer 1

情報が少なすぎて、よくわかりませんが、
同じ値が存在するかどうかは、いろいろ方法があります。
ループで一つずつ比較するとか、Findメソッドを使うとか、Match関数を使うとか、CountIf関数を使うとか。

とりあえず、Match関数を使う場合のコード例
仕様とかよくわかんので適当ですので、ロジックのご参考に。

Sub Sample()
    Dim i As Long, n As Long
    Dim Wb1 As Workbook, Wb2 As Workbook
    Dim SearchRng As Range
    Set Wb1 = ThisWorkbook 'このブック
    Set Wb2 = Workbooks("a.xlsx") '別ブック
    Set SearchRng = Wb2.Worksheets("Sheet1").Range("A1:A10") '検索範囲
    
    '取得
    For i = 1 To 10
        On Error Resume Next
        n = 0
        n = WorksheetFunction.Match(Wb1.Worksheets("Sheet1").Cells(i, 1), SearchRng, 0)
        If n <> 0 Then Wb1.Worksheets("Sheet1").Cells(i, 3) = "〇"
        On Error GoTo 0
    Next
End Sub

Comments

[退会済みユーザー]

Dim i As Long, n As Long
Dim Wb1 As Workbook, Wb2 As Workbook
Dim SearchRng As Range
の部分と
On Error Resume Next
n = 0
n = WorksheetFunction.Match(Wb1.Worksheets("Sheet1").Cells(i, 1), SearchRng, 0)
If n <> 0 Then Wb1.Worksheets("Sheet1").Cells(i, 3) = "〇"
On Error GoTo 0についての説明をもらっても大丈夫でしょうか？

[退会済みユーザー]

特にこの部分がわかりません、関数の知識不足でしょうが…
n = WorksheetFunction.Match(Wb1.Worksheets("Sheet1").Cells(i, 1), SearchRng, 0)
If n <> 0 Then Wb1.Worksheets("Sheet1").Cells(i, 3) = " 〇"