Excel 2010 VBA自动填充整个列

我无法让VBA执行相同的自动填充整行(例如,当您用公式单元格的加号双击并自动填充适当数量的列时)。

沿着列AI有一个date列表。 沿着第三排,我有一个公式列表。 我如何编写一个macros来实现这个function:

For i = 2 to Columns.Count 'FillDown the whole of Column i with the formula in Cells(3,i) Next i 

我想填写下来,不只是一个确切的公式的副本…有谁知道这可以做到这一点? 到目前为止,我已经有了一个20分钟左右的方法,但是当我手动完成这个过程时,并不需要太多的时间,所以我认为必须有一个更快的方法。

非常感谢您的帮助!

您可以尝试使用目标范围的Autofill

就像是:

 Selection.AutoFill Destination:=Range("A2:A12") 

[编辑]或者:

 Range("A1").AutoFill Destination:=Range(Cells(1, firstColNumber), Cells(1, lastColNumber))