質問: エクセルvbaでのオートフィル range("a1").select selection.autofill destination:=range("a1:a11"), type:=xlfillcopy range("a1:a11").select 上記のスクリプトで、 rangeのところを 隣あった列の最下段まで と、言うような指定はどうすればいいのでしょうか? b列の最後の行と隣り合ったセルまで、 a1のセルをコピーしたい場合です。
回答: >b列の最後の行と隣り合ったセルまで ということは具体的にどういうこと。c列についてb列の最終行までか。 実例を挙げないからこんな疑問が出る。 ーー 下記でどうかな。 sub test01() d = range("b65536").end(xlup).row set rng = range("c1:c" & d) msgbox rng.address with range("c1") 'スタート値 .value = "1月" .autofill destination:=rng end with 'range("a1:a11").select end sub 結果 b列 c列 1月 2月 3月 4月 5月 6月 7月 8月 9月 10月 11月 12月 sss1月 b列に最下行でsssがあり、その行までc列にデータを入れた。 ーー .value = "睦月"にすると 睦月 如月 弥生 ・・ となる(余談)