使用宏Excel复制公式

Question

我想让Excel自动化某些任务，例如。在A1复制公式向下从A2至A5000，然后复制公式D1，D2至D5000

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

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

由于

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