マクロ 複数のVLOOKUP関数をまとめる

質問

1．シート1のH1・I1・J1に項目名を入力
H1「テスト1」・I1「テスト1（正式）」・J1「テスト2」

2.それぞれに他シートから引用の計算式を入力し、3列まとめてオートフィルで最下行までコピーする
H2【=VLOOKUP($F2,シート2!$C:$M,5,0)】
I2【=VLOOKUP($F2,シート2!$C:$M,6,0)】
J2【=VLOOKUP($F2,シート2!$C:$M,11,0)】

以上のマクロの記述方法を教えてくださいますか？
宜しくお願いします。

回答No.2

mt2015 · ベストアンサー

> nLast = Cells(Rows.Count, 6).End(xlUp).Row
> の「6」は何を指しているのですか？

Cellsの場合、Cells(行,列）と設定します。
なので、6は6列目＝F列を指しています。

nLast = Cells(Rows.Count, 6).End(xlUp).Row
↑は、F列の最終行を求めて、変数nLastに代入しています。

お礼

なるほど、勉強になりました。
ありがとうございました。

回答No.1

mt2015

1については最初から入れておけば済むし、VBAでやるとしても単純な話なので省略します。

2は、こんな感じになります。
Sub Sample()
　　nLast = Cells(Rows.Count, 6).End(xlUp).Row
　　Range("H2:H" & nLast).Formula = "=VLOOKUP(F2,シート2!$C:$M,5,0)"
　　Range("I2:I" & nLast).Formula = "=VLOOKUP(F2,シート2!$C:$M,6,0)"
　　Range("J2:J" & nLast).Formula = "=VLOOKUP(F2,シート2!$C:$M,11,0)"
End Sub

補足

ありがとうございます。
うまく出来ましたが、気になることがありまして。
nLast = Cells(Rows.Count, 6).End(xlUp).Row
の「6」は何を指しているのですか？