vba - Excel删除公式，但保留有很多行的值

Question

我正在使用宏excel。我正在尝试删除公式，但保留单元格的值，因为它使过滤/排序变得如此缓慢。我已经尝试了以下方法:

Range("A2:E70000").Select
Selection.Copy 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks :=False, Transpose:=False

和

Sheet1.Range("A2:E70000").Values = Sheet1.Range("A2:E70000").Values

但他们都需要太长时间才能完成(大约 30 分钟。完成)。有没有更快的方法来做到这一点？提前致谢。

Answer 1

用括号括住您的代码

Application.ScreenUpdating = False

和

Application.ScreenUpdating = True

您应该会看到性能显着提高。