VBAでvlookupで価を返しましたが、2列目以降の表示するには・・・

下の画像から「2列目」にしているので、答えはその列が入ります。
ただ、通常のVLOOKだと、列番号の箇所にCOLUMN 関数とか、
上に番号を付けて複合参照を使えば、残りが返えせますが、
ｖBAで、2～4列まで表示するには、どうしたらいいでしょうか？

No.1 回答者： tatsumaru77 回答日時： 2022/11/11 21:10

>ｖBAで、2～4列まで表示するには、どうしたらいいでしょうか？

現在２列には、H列の内容を設定していますが、
３列、４列には、どこの列の値を設定したいのでしょうか。

この回答へのお礼

はい、「１列（G2）、２列（H）、３列（I2）、４列（J2）」
このままですと、２行～１２行の２列目（H列）しか
答えが出ません。

お礼日時：2022/11/11 21:29

No.2 ベストアンサー 回答者： fujillin 回答日時： 2022/11/11 21:27

こんばんは

＞ｖBAで、2～4列まで表示するには、どうしたらいいでしょうか？
方法はいろいろ考えられます。

1）ご提示の方法で、2～4列をループする。

2）セル範囲に、関数式を設定する。
＞通常のVLOOKだと、列番号の箇所にCOLUMN 関数とか、上に番号を付けて複合参照を使えば～
とおっしゃっている関数式を対象セル範囲にVBAで設定するという意味です。

3）参照範囲が連続しているのなら、
MATCH関数やFindメソッドで検索して、ヒットした行のセル範囲をまとめて転記する。


行方向にもループなさっているようですので、私なら行方向もまとめてしまって、2）の方法にするかな。
対象となる表の範囲が不明ですが、仮にG2:J12でよいものとするなら・・

With Range("B2:D12")
.FormulaLocal = "=VLOOKUP($A2,$G$2:$J$12,COLUMN(B1),0)"
.Value = .Value
End With

みたいな感じでしょうか。

この回答へのお礼

fujillin　様
ご回答ありがとうございます。
コピーして貼り付けたら出来ました。

ありがとうございます。

お礼日時：2022/11/11 21:57

No.3 回答者： tatsumaru77 回答日時： 2022/11/11 21:36

以下のようにしてください。

Public Sub VLOOKUP試験()
Dim i As Long
For i = 2 To 12
Cells(i, 2) = WorksheetFunction.VLOOKUP(Cells(i, "A"), Range("G2:H12"), 2, False)
Cells(i, 3) = WorksheetFunction.VLOOKUP(Cells(i, "A"), Range("G2:I12"), 3, False)
Cells(i, 4) = WorksheetFunction.VLOOKUP(Cells(i, "A"), Range("G2:J12"), 4, False)
Next
End Sub

この回答へのお礼

tatsumaru77　様
お忙しい中、ご回答ありがとうございます。
これならコピーして、条件を変更すればいいので
とてもいいですね。

ありがとうございました。

お礼日時：2022/11/11 21:49