Excel使用macros复制公式

我正在试图让Excel自动化某些任务，例如。 将A1中的公式从A2复制到A5000，然后复制D1中的公式，从D2到D5000

如果它只是2个不同的列，我只是复制和粘贴，但实际上是在同一个选项卡中的60列，这些公式列不相邻。

任何build议，以加快速度？ 非常感激！

谢谢

Answer 1

将列索引号分配给一个数组并循环遍历它们。

Sub extendFormulas() Dim c As Long, fr As Long, lr As Long, arrCols As Variant arrCols = Array(1, 4) 'assign a collection of the column index numbers; this is A and D fr = 1 'assign a starting row that already has the formula lr = 5000 'assign a finishing row With Worksheets("Sheet1") For c = LBound(arrCols) To UBound(arrCols) .Range(.Cells(fr, arrCols(c)), .Cells(lr, arrCols(c))).Formula = _ .Cells(fr, arrCols(c)).Formula Next c End With End Sub