如果 iRow 达到 40,000(请注意,它会导致总共 3,720,000 个公式......),则下面提取的代码可以完美运行。我现在需要为超过 100,000 的 iRow 做同样的事情,如果它完成的话,它是指数级的糟糕......我让 PC 开启超过一天,但它没有。
Dim iRow As LongPtr
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
WSD.Range("K2:CZ2").Copy Destination:=WSD.Range("K3:CZ" & iRow)
Application.Calculation = xlCalculationAutomatic
Application.Calculation = xlCalculationManual
WSD.Range("K3:CZ" & iRow).Value = WSD.Range("K3:CZ" & iRow).Value
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
非常感谢您对这个问题的任何了解。
配置:Excel 2010 x64 VBA7 WIN64