VBAで B.xlsの番号と同じ番号がD.xlsにあればくっつけたい

質問

VBAで　B.xlsの番号と同じ番号がD.xlsにあればくっつけたい
　エクセル関数でいうとVlookUPをしたいのですが、1004エラーがかかってしまいます。

必要なところだけを抜き取っているので、分かりにくいかと思いますが、

Dim a, b, c, d, y, x, z, i, j, k, m, n, o, r As Long

a = 2 '2 なのは、A2から数えるため。
b = 0 'BookBのレコードの数を数えるための変数。

Do While Workbooks("B.xls").Worksheets("Sheet1").Cells(a, 1) <> ""
a = a + 1
b = b + 1
Loop

Workbooks("B.xls").Activate

For k = 2 To b
For m = 2 To 300000
エラー⇒ If Workbooks("B.xls").Worksheets("Sheet1").Cells(k, 1) = Workbooks("D.xls").Worksheets("Sheet1").Cells(m, 1) Then
Workbooks("B.xls").Worksheets("Sheet1").Cells(k, 12) = Workbooks("D.xls").Worksheets("Sheet1").Cells(m, 2)
Workbooks("B.xls").Worksheets("Sheet1").Cells(k, 13) = Workbooks("D.xls").Worksheets("Sheet1").Cells(m, 3)
End If
Next m
Next k
　　・
　　・
　　・

の部分でつまっています＞＜；
説明が不十分でしたら追加いたしますので、初心者の簡単なエラーだとは思うのですが、教えてください＜（＿＿）＞

回答No.1

myRange · ベストアンサー

エラー番号だけはなく、エラーのメッセージも表示すべきでしょう。

ま、それは置いといて、、、、

エクセルのバージョンは、２００７より前（２００３とか）を使ってませんか？
使ってますよね？

＞For m = 2 To ▼300000▼

この300000がエラーの原因です。
最大６５５３６です。（因みに、２００７以上は、１００万以上）

で、どのバージョンでも使えるようにデータの最終行を求めて処理するといいでしょう。

'-------------------------------------------
Dim LastB As Long '●B.xlsのＡ列データ最終行
Dim LastD As Long '●C.xlsのＡ列データ最終行

LastB = Workbooks("B.xls").Sheets("Sheet1").Cells(Cells.Row, 1).End(xlUp).Row
LastD = Workbooks("D.xls").Sheets("Sheet1").Cells(Cells.Row, 1).End(xlUp).Row

For k = 2 To LastB
　　For m = 2 To LastD

　＝＝以下質問書のコード＝＝

'-----------------------------------------

以上です。

お礼

ありがとうございます。
次回よりエラーメッセージも記載します＞＜；すみません。。。

最終行の求め方までありがとうございます。
確かにエクセル2000を使ってます^^;
計算をすれば、時間もかからないですし、いけました＜（＿＿）＞
計算を考えずズボラをして適当な上限をいれたのが間違いだったようですね＞＜；

ありがとうございました＜（_　_）＞