連続データ

フィルハンドルでドラッグして連続データを作成する。

変数を使わずに、ベタ打ちの数式をAutoFillで連続データにする。

"B2"セルにvlookupを入力し、右のマスタから品名を表示させる。

Range("B2").Value = "=VLOOKUP(A2,$D:$E,2,0)"

この数式をフィルハンドルでA列の最終行までドラッグする。

'A列の最終行番号を取得

Dim LastRow As Long

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

'B2セルにベタ打ちした数式をA列最終行番号までB列で範囲指定し、コピペ。

Range("B2").AutoFill Destination:=Range("B2" & ":" & "B" & LastRow)

Range("B2").Value = "=VLOOKUP(A2,$D:$E,2,0)"

Dim LastRow As Long

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

Range("B2").AutoFill Destination:=Range("B2" & ":" & "B" & LastRow)