2つのファイルを比較して判定を付ける

ファイル （A.xlsx）にある注文番号（画像が切れていますがＢ列です）が、
ファイル （Ｂ.xlsx）にある注文番号（Ｂ列・Ｄ列）の中に存在すれば
ファイル （A.xlsx）にあるチェック（Ｄ列）が〇、なければ✕にしたいです。

（Ｂ.xlsx）は空白を含みます。
（A.xlsx）と（Ｂ.xlsx）は同じフォルダ内にあります。
実際の（Ｂ.xlsx）のデータ数は数千あります、関数では厳しいでしょうか？

ＶＢＡで途中まで作成しましたが、完全に訳が分からなくなりました。
メチャクチャですが、少しでも完成イメージがお伝えできればと思い以下にまとめます。

Sub 判定()
Dim hida As Long
Dim migi As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets(1)
Workbooks.Open Filename:=ThisWorkbook.Path & "\B.xlsx"
Set ws2 = ActiveWorkbook.Worksheets(1)
For migi = 4 To 2000
For hida = 4 To 8
If ws2.Range("B" & migi).Value = ws1.Range("B" & hida).Value Then
ws1.Range("D" & hida).Value = ”0”
Exit For
End If
Next
Next


End Sub

お詳しい方、お助け頂けますと幸いです。
宜しくお願いいたします。

質問者からの補足コメント

• めぐみんさん、いつもお世話になっております。
  早速コードを使わせていただきましたが、「End Withに対するWithがありません」
  とエラーが表示されます。見た感じではWithとEnd Withの数は問題ないようです。

  No.1の回答に寄せられた補足コメントです。 補足日時：2021/12/31 16:47

• ご回答ありがとうございます。
  もう一つ教えてください。
  コードを実行するとエラーで、オブジェクトが必要です、と表示されます。
  If WorksheetFunction.CountIf(r2, r.Value) > 0 Then
  の部分のようです。

  No.5の回答に寄せられた補足コメントです。 補足日時：2022/01/01 04:00

No.6 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/01/01 10:45

No.1です。

テキストでコード修正した際に書き換えが漏れたのですね。

If WorksheetFunction.CountIf(r2, r.Value) > 0 Then

↓

If WorksheetFunction.CountIf(r2, r1.Value) > 0 Then

に修正願います。（ループ変数を r ⇒ r1 に変えた際漏れました）

この回答へのお礼

ありがとうございました！
完璧です。

お礼日時：2022/01/02 08:24

No.5 回答者： めぐみん_ 回答日時： 2021/12/31 19:09

No.1 です。

申し訳ございません。

End With
Next

↓

Next
End With

逆でした。。。
手打ちだけで検証してませんでした。
初級レベルなジジィはまた１つ歳を取ります。

No.4 回答者： fujillin 回答日時： 2021/12/31 17:48

こんばんは

＞関数では厳しいでしょうか？
両方のブックが開いている状態であると仮定してよければ・・
D4セルに以下の式を入力して、下方にフィルコピー
=IFS(B4="","",COUNTIF([B.xlsx]Sheet1!$B:$B,B4)+COUNTIF([B.xlsx]Sheet1!$D:$D,B4),"〇",1,"×")

※ 計算が重いようであれば「$B:$B$」「$D:$D」部分の範囲を限定してみてください。

この回答へのお礼

ありがとうございます！
この関数、別の案件で使用できる事がわかりました。
早速活用させていただきます。

お礼日時：2022/01/02 08:27

No.3 回答者： めぐみん_ 回答日時： 2021/12/31 14:39

#2様へ

Book名・シート名の指定方法が抜けていると感じますが如何でしょう？

No.2 回答者： mygoonickname 回答日時： 2021/12/31 14:17

こんにちは。

IFとCOUNTIF関数の組み合わせでどうでしょうか？
A.xlsのD4セルに、下記を入れる。
その後、D4セルをコピーして、D5以下セルに貼り付けを行う。
=IF(COUNTIF($B$4:$D$末尾の行,B4)>0,"〇","×")

この回答へのお礼

ありがとうございます！

お礼日時：2022/01/02 08:27

No.1 回答者： めぐみん_ 回答日時： 2021/12/31 13:42

Sub 判定_改()

Dim ws1 As Worksheet
Dim r1 As Range, r2 As Range
Set ws1 = ThisWorkbook.Worksheets(1)
Workbooks.Open Filename:=ThisWorkbook.Path & "\B.xlsx"
Set r2 = ActiveWorkbook.Worksheets(1).Range("B:D")
With ws1
For Each r1 In .Range("B4", .Cells(Rows.Count, "B").End(xlUp))
If WorksheetFunction.CountIf(r2, r.Value) > 0 Then
r1.Offset(, 2).Value = "○"
Else
r1.Offset(, 2).Value = "×"
End If
End With
Next


End Sub

かな？
B.xlsxのシートＣ列の値が注文番号に一致するような物でないと言う前提ですが。