Excel 2010 VBA 自动填充整列

【问题标题】：Excel 2010 VBA Autofill entire columnExcel 2010 VBA 自动填充整列
【发布时间】：2011-12-14 22:55:42
【问题描述】：

我无法让 VBA 执行相当于自动填充整行的操作（例如，当您双击带有公式的单元格的加号并自动填充适当数量的列时）。

沿着 A 列，我有一个日期列表。在第 3 行，我有一个公式列表。如何编写一个可以有效执行此操作的宏：

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

我想要填写，而不仅仅是精确公式的副本...有谁知道如何做到这一点？到目前为止，我有一个大约需要 20 分钟的方法，但是当我手动执行此过程时，根本不需要太多时间，所以我认为必须有一个更快的方法。

非常感谢您的帮助！

【问题讨论】：

【解决方案1】：

您可以尝试将Autofill 与目标范围一起使用。

类似：

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

[编辑] 或者：

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

【讨论】：

每列是否需要更改范围？即我是否必须每次都输入 Range("A2:A12") 或将其更新为 Range("B2:B12") 等...？我问是因为我处理的是列号而不是字母。
这个变种工作得很好！所以其他人知道，根据这个答案，我使用的解决方案是：Cells(3, i).AutoFill Destination:=Range(Cells(3, i), Cells(NumberOfRows, i))