VLOOKUP関数と同じことをVBAでおこなうには

質問

初めまして、当方ＶＢＡの素人です。よろしくお願いします。
　同じような質問で、このようなVBAを見つけました。

Sub Macro1()
For n = 2 To 5 '処理するSheet2の行数範囲
a = Sheets("Sheet2").Cells(n, 1) 'aにA列の値を代入
For m = 2 To 5 '検索するSheet1の行数範囲
If Sheets("Sheet1").Cells(m, 1) = a Then 'Sheet2のA列の値とSheet1のA列が一致した場合
v = Sheets("Sheet1").Cells(m, 2) 'vにB列の値を代入
Sheets("Sheet2").Cells(n, 2).Value = v 'Sheet2のB列に値を入力
Exit For '値が見つかったのでForを終了
End If
Next
Next
End Sub

このVBAではSheet2での検索、入力が列になるのですが、列でなく、行でできないでしょうか。できればSheet1のB列の値をSheet２の１行で検索、Sheet２の２行に入力されるだけではなく、Sheet1のＣ列の値をSheet３の１行で検索、Sheet３の２行に入力されるようにしたいと思います。
　解る方、よろしくお願いします。

回答No.1

tom04 · ベストアンサー

こんにちは！
外していたらごめんなさい。

質問内に
＞For n = 2 To 5 '処理するSheet2の行数範囲
とありますので、とりあえずSheet2・Sheet3ともB～E列の2行目に表示するようにしてみました。

尚、Sheet2・3とも検索はB1～E1セルに入力されているもので検索するとしています。

↓のコードを標準モジュールにコピー＆ペーストしてマクロを試してみてください。

Sub test()
Dim i, j As Long
Dim ws1, ws2, ws3 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
Set ws3 = Worksheets("sheet3")
For i = 1 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To 5
If ws2.Cells(1, j) = ws1.Cells(i, 1) Then
ws2.Cells(2, j) = ws1.Cells(i, 2)
End If
If ws3.Cells(1, j) = ws1.Cells(i, 1) Then
ws3.Cells(2, j) = ws1.Cells(i, 3)
End If
Next j
Next i
End Sub

こんな感じで良いのですかね？
的外れなら読み流してください。m(__)m

お礼

回答ありがとうございます。こちらの説明が不十分であったために失礼いたしました。回答いただいた内容でうまくできました、ありがとうございます。当方検索、出力範囲、位置、の移動を考えています。忙しくなければ
”For i = 1 To ws1.Cells(Rows.Count, 1).End(xlUp).Row”
の意味を教えていただければ幸いです。よろしくお願いします。