アクティブセルから、A列最終行までフィルダウン

今いるセルの位置から、A列のデータのある最終行までフィルダウンするコードを教えていただけないでしょうか。

下記のようにF列ときまっていればいいのですが、毎回ちがうので、できれば ActiveCellをつかってつくることが
できないでしょうか。

Range("F3:F3").AutoFill Destination:=Range("F3:F" & Range("A3").End(xlDown).Row())

ExcelのVBAでわかる方おしえてください。

No.4 ベストアンサー 回答者： eden3616 回答日時： 2014/08/27 18:59

追加で。

。。
C5：E7などの範囲を選択した状態で、A列末尾までオートフィルするなら、こんなかんじでしょうか。
もちろん１つのセルを選択しても出来ます。

Sub test()
With ActiveCell
　　Selection.AutoFill _
　　　　Destination:=Range( _
　　　　　　Selection, Selection.Offset( _
　　　　　　　　Cells(.Row, "A").End(xlDown).Row - _
　　　　　　　　Selection(Selection.Count).Row, 0 _
　　　　　　) _
　　　　)
End With
End Sub

No.3 回答者： eden3616 回答日時： 2014/08/27 18:46

こういう事でしょうか？

Sub test()
With ActiveCell
　　Cells(.Row, .Column).AutoFill _
　　　　Destination:=Range( _
　　　　　　Cells(.Row, .Column), _
　　　　　　Cells(Cells(.Row, "A").End(xlDown).Row, .Column) _
　　　　)
End With
End Sub

No.2 回答者： WDY 回答日時： 2014/08/27 16:24

Cells(ActiveCell.Column, ActiveCell.Row).valueで値が取れるので

forでループしながらActiveCell.Rowを1行づつ増やし
Cells(ActiveCell.Column, ActiveCell.Row + ループの変数).valueが空白になる行までまわし
Cells(ActiveCell.Column, ActiveCell.Row)を空白行までフィルダウンさせるか

forでループしながら式を
Cells(ActiveCell.Column, ActiveCell.Row + ループの変数).value=フィルダウンさせたい計算式
をセットしていけば出来ると思います。

No.1 回答者： WDY 回答日時： 2014/08/27 11:42

Cells(ActiveCell.Column, ActiveCell.Row)で参照してフィルダウンでどうでしょう？

この回答への補足

申し訳ないですが、どうかけばいいのでしょうか・・？

補足日時：2014/08/27 12:34