当方初心者で、エクセルVBAにつきまして、デバックに対してどのように対

質問

当方初心者で、エクセルVBAにつきまして、デバックに対してどのように対応すればいいか分からず、悩んでいます。
やりたいことと致しましては
エクセルにおきまして、列Aに1000個程度の数字が並んでいます。
列Bには数字に対応する文字が並んでいます。
列Cには無作為に300個程度の数字が並んでおります。
この列Cの数字を列Aの数字の中から探し、それに対応する文字を列Dに表示させたいと思っております。
そこで、初めてエクセルVBAを使用して、以下のように書いてみました。

Sub Macro2()
A = 1
B = 1
C = 1

Do Until A = 300
★ X = Cells(B, 1).Value - Cells(C, 3).Value
B = B + 1

If X = 0 Then
　 Cells(A, 4).Value = Cells(B - 1, 2).Value
A = A + 1
C = C + 1
End If
Loop

End Sub

しかし、いざ起動してみると、実行時エラー1004　アプリケーション、オブジョクトの定義のエラーとなり、デバックで★部分が指摘されます。
当方、VBAを使うのは初めてで、非常に稚拙な質問かとは思いますがご回答くださるとありがたいと思います。

回答No.3

myRange · ベストアンサー

エラーの原因は、X<>0（等しくない）とき、
変数Ｂの値ががシートの最終行を超えるからです。

例えば、
セルＡ１：５０
セルＣ１：スペース（未入力）

この時、変数Ｂだけが＋１され続け、
シートの最終行（xl2000～2003では、６５５３６）を超えてしまう。

★Cells(B, 1).Value　ー＞　Cells(６５５３７, 1).Value

デバッグ状態でエラー行のＢにマウスポインターを持っていけば
その時点のＢの値が確認できます。

それから、他にもおかしいところがあります。
実際のデータと照らし合わせながら１行ずつ追ってみるとわかります。

で、慣れたらもっと簡単な方法がありますが、初心者ということなので
Ｃ列の値があるセルを１行目から最終行までひとつずつ
Ａ列１行目からＡ列最終行の値と比較していくといいでしょう。

最終行とは値の入力されてる最終の行のことです。
Ａ列最終行は、Cells(Rows.Count,3).End(xlup).Row
Ｃ列最終行は、Cells(Rows.Count,1).End(xlup).Row

'-------------------------------------
Sub test()
　Dim A As Long
　Dim C As Long

　For C = 1 To Cells(Rows.Count, 3).Row
　　　If Cells(C, 3).Value <> "" Then
　　　　　For A = 1 To Cells(Rows.Count, 1).Row
　　　　　　　If Cells(C, 3).Value = Cells(A, 1).Value Then
　　　　　　　　　Cells(C, 4).Value = Cells(A, 2).Value
　　　　　　　　　Exit For
　　　　　　　End If
　　　　　Next A
　　　End If
　Next C
End Sub
'--------------------------------------

以上です。

お礼

丁寧なご対応ありがとうございました。
なるほど、確かにデバック中にマウスポインタをもっていったら最終行になっておりました。
書いてくださった文章も一つ一つどんな命令か理解しつつ、使わせていただきました。
今後は一度、図に起こすなど考えを煮詰めてから文章に起こしたいと思います。
ありがとうございました！

回答No.2

imogasi

Cells(B - 1, 2はCells(0,2)となり時期があって（始めのとき）、これではセルを示せない。
ー
再現してみると
Sub test01()
Cells(0, "B") = 1
End Sub
を事項すると、「実行時エラー1004　アプリケーション、オブジョクトの定義のエラー」となります。
ーー
ロジックというか比較対象を良くアンが得ること。
最初の行の扱いは注意が必要。
第１行目のまえは存在しない。はから比較はしないように特別措置が必要。

お礼

早速のご回答ありがとうございました。
なるほど、確かに対照できない命令文になってしまう可能性があります。
今後はまず、図などに起こして考えてから作るようにしていきたいと思います。
ありがとうございました。

回答No.1

ziziwa1130

VBAを使わなくても、例えばA1～A1000に数値、B1～B1000に文字列、C1～C300に数値が入っていて、D1～D300にC列に対応する文字列を出したい場合には、D1に"=VLOOKUP(C1,$A$1:$B$1000,2,FALSE)"と入力してコピー、D2～D300にペーストすれば簡単にできますよ。

お礼

早速の回答、ありがとうございます。
このような関数があったのですね・・・試した見たところ、非常に簡単に作業できました。
大変助かりました。ありがとうございました！

・・・ただ、質問した手前、と申しますか、VBAの対応も知っておきたいと考えておりますので、質問は締め切らずにいたいと思います（といってもすでに解決しておりますので明日には締め切りますが）。
大変お手数ですが、引き続き回答をいただけたらと思います。
よろしくお願いいたします。