VBA 最終行までオートフィル

お世話になっております。
B列には必ずデータが入っています。
W3列からX３列目まで数式が入っていますのでB列のデータがある行数まで数式をそのままドラッグしてコピーしたいです。
（B列が３３行目までデータがあれば33行目までドラッグ

sub macro3()

Sheets("貼り付け”）.Select
eRow = Sheets(貼り付け）.Cells(Rows.Count,2).End(xlUp).Row
Range("W3:X"&eRow).

までは記載しましたが、オートフィルをするにはどのようにすればよいでしょうか。

何卒宜しくお願い致します。

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2021/08/27 01:40

こんばんは。

オートフィルではなく、コピーになりますが、それでも良ければ。

Range("W3:X3").copy
Range("W4:X" & eRow).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False

内容は、セル："W3:X3"をコピーして、"W4:X" & eRow まで選択し、
　数式の貼り付けをしています。
最後は、コピーの枠を解除するために入れてます。

https://excel-ubara.com/excelvba1/EXCELVBA341.html

この回答へのお礼

お世話になっております。
ありがとうございます。
頂いた内容で反映しました。
お手数をお掛けしました。

お礼日時：2021/08/27 07:21