Excel VBA 自動で最終行までオートフィルをかけるＶＢＡについて

こんにちは脇村です。僕のブログでは、本業での実務上のＥＸＣＥＬ、ＡＣＣＥＳＳマクロ＆ＶＢＡの使えそうなコードの紹介、コールドリーディングの実践例、電話占いでの現場、最近読んでいいなと思った本等について、主に発信していきたいと思っています。

今回はＥＸＣＥＬＶＢＡについて発信したいと思います。こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながると思います。少しずつ発信していってその手助けができれば幸いだと思っています。今回は自動で最終行までオートフィルをかけるＶＢＡについてです。

Sub 自動で最終行までオートフィルをかけるＶＢＡ()
Sheets(“ＷＥＢ反映”).Select Sheets(“ＷＥＢ反映”).Range(“K7”).Formula = “=VLOOKUP(B7,マスター!$A:$E,5,0)” ①
Sheets(“ＷＥＢ反映”).Range(“K7”).Select
If Sheets(“ＷＥＢ反映”).Range(“B8”).Value <> “” Then ②
Selection.AutoFill Destination:=Range(“K7:K” & Sheets(“ＷＥＢ反映”).Range(“B65535”).End(xlUp).Row) ③
End If
End Sub

①はセル番地Ｋ７に関数を入れるコードです。
②はセル番地Ｋ８が空欄でなければ③の処理をします。
③はＢ列の最終行までセル番地Ｋ７の関数を下にオートフィルをかけます。これで最終行まで関数のコピーが出来ました。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

【法人通信】

退職代行ガーディアン

【UZUZ】

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
以上、今回は自動で最終行までオートフィルをかけるＶＢＡでした。次回もまたよろしくお願いします。

☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆

格安ドメイン名取得サービス『Xserverドメイン』

格安ドメイン名取得サービス『Xserverドメイン』
　https://px.a8.net/svt/ejp?a8mat=3NCUSP+DA33JM+CO4+15OZHV