オートフィルの自動化について

質問

EXCELでB4からB列に値がある分、A列にオートフィルを実行
させたいのですが、
Selection.AutoFill Destinationで明確に記載すれば
できるのですが、何か他に方法はありませんでしょうか。

A4 B4
1 データ
　　 データ
　　 データ

上記でA5以降マクロでオートフィルを実行させる処理を
やりたいのですが..
知ってる方いましたら教えてください

回答No.2

hige_082 · ベストアンサー

こんばんわ

Sub test()
Range("A4").AutoFill Destination:=Range("A4:A" & Cells(Rows.Count, 2).End(xlUp).Row)
End Sub

参考まで

回答No.1

ASIMOV

こんなんでどうでしょう
-------------------
Sub Mc1()
　　Range("A4").Select
　　Cells(4, "A") = 1
　　xRow = Cells(4, "B").End(xlDown).Row 'B列の最後のDATAが有る行
　　Selection.AutoFill Destination:=Range("A4:A" & xRow), Type:=xlFillDefault
End Sub