Excel删除公式，但保持很多行的值

我正在使用macrosExcel。 我试图删除公式，但保持单元格的值，因为它使过滤/sorting如此缓慢。 我已经尝试了以下内容：

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.creenUpdting = True 

你会看到性能显着提高。

Answer 2

像select细胞这样的视觉效果会大大减缓这种情况。 还select排70,0000？ 如果事实确实如此，那么如果不是那么为什么呢？

已经稍微编辑了第一个代码。 这将停止屏幕更新，直到完成，不会“select”任何单元格（可视化），并会find最后一个实际的行正在使用，而不是只是一咧地select一个范围，希望它得到的一切。

尝试：

 Application.ScreenUpdating = False with Sheet1.Range("A2:E" & Sheet1.Range("E" & .Rows.Count).End(xlUp).Row) .copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks :=False, Transpose:=False end with Application.ScreenUpdating = True