質問: Range("B1").FormulaR1C1 実際にはコピーしたい列数が多い為、1行にまとめたいのですが。 宜しくお願いします。
回答: Range("A1:B18").Formula = Range("A1:B1").Formula とか Range("A1:B1").AutoFill Destination:=Range("A1:B18") でいかがですか。