VBA AutoFill速度问题

Question

我有一段代码，它将公式从一个单元格复制到下一列，速度非常慢( 10,000行工作表需要15分钟)。代码是：program.Worksheets("Data").Range("X2:AC2").AutoFill program.Worksheets("Data").Range("X2:AC" & LastRow)

我也试过把.AutoFill Destination放进去，但没有解决这个问题。我正在使用With Worksheets("Data")，但仍然不能工作。我也尝试手动插入公式，但也不起作用(完全)。有什么建议可以让它更快吗？谢谢!

Answer 1

program.Worksheets("Data").Activate
Range("X2:AC").AutoFill Destination:=Range("X2:AC" & LastRow)