質問: VBA 詳しい方お願いします。
回答: サンプルコードの処理は、 対象シート(DB)のA列使用範囲でB1セルの値を探し、 当てはまるすべてのセルを取得する、というものです。 質問者様のやりたいことというのは、 ファイルAとファイルBのA1セル同士、A2セル同士、、、を比較したいということでしょうか? その場合は、サンプルコードのやり方はそぐわないかと。 異なるファイルの、同じ場所同士を比較するのであれば、もっとシンプルです。 Workbooks("ファイルA.xlsx").Worksheets("シートA").Cells(行, 列) Workbooks("ファイルB.xlsx").Worksheets("シートB").Cells(行, 列) 上記の2つの値がイコールなら即終了、そうでなければ比較を繰り返し、処理をする、という流れになります。 Dim wsA As Worksheet, wsB As Worksheet, row As Long, col As Long '比較したいファイル・シート Set wsA = Workbooks("ファイルA.xlsx").Worksheets("シートA") Set wsB = Workbooks("ファイルB.xlsx").Worksheets("シートB") '比較したい列(仮にA列とします) col = 1 '行の初期値 row = 1 Do If wsA.Cells(row, col) = wsB.Cells(row, col) Then Exit Sub '一致した時点で処理を終了します End If row = row +1 Loop Until wsA.Cells(row, col)="" And wsB.Cells(row, col)="" 上記ループでは、ファイルAとファイルBの比較したいセルが共に空欄ならループを終了しています。 行数が固定ならForでループさせたほうがいいです。