![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.4ベストアンサー
- 回答日時:
追加で。
。。C5:E7などの範囲を選択した状態で、A列末尾までオートフィルするなら、こんなかんじでしょうか。
もちろん1つのセルを選択しても出来ます。
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
- 回答日時:
こういう事でしょうか?
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
- 回答日時:
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=フィルダウンさせたい計算式
をセットしていけば出来ると思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) 列の最終行に新たに入力されたらその値を自動参照 1 2023/01/21 09:59
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
Excelで、activecellから最終列まで選択するvbaはどうすれば?
Excel(エクセル)
-
-
4
エクセルVBAでのオートフィル
Excel(エクセル)
-
5
VBAで複数の数式セルを最終行までコピーするには?
Excel(エクセル)
-
6
エクセルマクロ 行数可変のオートフィルター構文
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
Excel VBA アクティブセルからある一定のセルまでの範囲選択
Excel(エクセル)
-
9
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
10
エクセル マクロ 最終列までを全選択
Excel(エクセル)
-
11
VBA 数式を最終行までコピー
Excel(エクセル)
-
12
VBAで先月、先々月を求める方法
Visual Basic(VBA)
-
13
パスをセルから取得し保存 VBA
その他(Microsoft Office)
-
14
Excelで、あるセルの値に応じて行を自動挿入したい
Visual Basic(VBA)
-
15
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
16
VBAでセル入力の数式に変数を用いたい
Excel(エクセル)
-
17
マクロで任意の列を参照して、オートフィルをする方法が知りたいです。
Excel(エクセル)
-
18
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
19
スクロールしてもボタンを常に表示させたい。Excel2002
Excel(エクセル)
-
20
参照先セルに値が入っていない時に、「0」や「1900/01/00」などが入らないようにしたいのですが
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
VBAでの一時停止と再開の方法
-
範囲指定したセルを1つずつ飛...
-
アクティブセルから、A列最終行...
-
多重ループの抜けだし方
-
VBA Dir関数でファイルをループ...
-
C#で別のフォームのprogress ba...
-
WinAPI「MsgWaitForMultipleObj...
-
エクセルの当番表を作っていま...
-
再帰関数のインライン展開
-
VB.NETで素因数分解のプログラ...
-
DoEventsが必要な理由について
-
データベースをEOFまでループさ...
-
Escキーを押すと、中断する時と...
-
WSH:任意のキーを押してDo Whi...
-
フラグについて
-
VBAで3秒だけ時間を止めたい
-
うるう年判定のアルゴリズム
-
objective-cの多重ループbreak
-
StatementとResultSetのclose()...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
VBAでの一時停止と再開の方法
-
UWSCの終了の仕方
-
DoEventsが必要な理由について
-
VBAで3秒だけ時間を止めたい
-
範囲指定したセルを1つずつ飛...
-
Escキーを押すと、中断する時と...
-
DOSコマンドのループ内のTIMEコ...
-
vbscriptでIE自動入力(途中で...
-
乱数の桁数指定、または範囲指定。
-
GIFアニメをループさせたくない
-
プログラミングについて。 1つ...
-
エクセルの当番表を作っていま...
-
テキストボックスの名前に変数...
-
ループフリー
-
vb.netからエクセル関数書き込み
-
CSVファイルの特定の行だけを読...
-
VBA for i=1 to lastrow
-
どなたかこのプログラミングを...
-
Do whileでExitせず、ループの...
おすすめ情報