ＥＸＣＥＬマクロで左列に値のある行まで選択

質問

EXCELのマクロの記録を利用して簡単なマクロを作りたいのですが、
やりたいことは、表の最上部のセルにＶＬＯＯＫＵＰ関数を設定し、
フィルハンドルでWクリックするように表の最下部までコピーしたいのですが、
マクロの記録では、貼り付けする先のセルが固定されてしまい、
表の行数が変動する場合はそのまま使えません。
左列に値のあるセルを判断してその行番号までを選択できれば解決するのですが、
お詳しいかたお教えください。

ちなみにマクロの記録の構文では

＜フィルハンドルでクリックする場合＞

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC7,'10FY'!R2C1:R1321C2,2,0)"
Selection.AutoFill Destination:=Range("H3:H27")
Range("H3:H27").Select
End Sub

＜範囲選択しコピー貼り付けする場合＞

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC7,'10FY'!R2C1:R1321C2,2,0)"
Selection.Copy
Range("H4:H27").Select
ActiveSheet.Paste
End Sub

回答No.1

keithin · ベストアンサー

たとえばＨ２以下のセルに
Ｈ２：
=VLOOKUP(G2,'10FY'!$A$2:$B$1321,2,FALSE)
と記入してＧ列の下端と同じ行まで記入したい、としましょうか。

作成例：
sub macro1()
range("H2:H" & range("G65536").end(xlup).row).formula = "=VLOOKUP(G2,'10FY'!$A$2:$B$1321,2,FALSE)"
end sub

とするだけです。

お礼

ありがとうございます。
やってみてうまくいきました。