マクロに関数(?)の登録＆最終行までコピー

質問

マクロ初心者です。

H列に…　=RIGHT(B2,4)
I列に…　=IF(LEFT(H2,1)="", RIHGT(H2,3),"")
J列に…　=I2&E2

上記の関数を登録した上、これを毎回変わるA列の最終行までコピーしたいのですが、どなたか方法を教えてください。

過去の投稿などを色々見てみましたが、応用が利かず困っています。
どうか宜しくお願い致します。

回答No.2

mt2008 · ベストアンサー

関数がH2:J2に入っているという事で良いですか？

A2以下の値が途切れる行まで式をコピーするサンプルです。

Sub Sample()
　nRow = ActiveSheet.Range("A2").End(xlDown).Row 'A2以下のデータ最終行
　Range("H2:J2").Copy 'H2:J2をコピーして
　Range("H2:J" & nRow).PasteSpecial Paste:=xlPasteFormulas '該当範囲に数式を張りつけ
End Sub

お礼

ありがとうございます。

これで何とかなりそうです。
大変助かりました。

回答No.1

MRT1452

対象の式の入ったセルを選択し、右下のポイントをドラッグしてセルコピーをすれば、
式内の対象となるセル位置が自動的に変わりませんか？

お礼

ありがとうございます。
ただ、A列の行数が多いものですから、自動的に最終行までコピーできるマクロが必要なんです。