在Excel 2016中插入列时性能严重低下

在Excel2007中没有问题，但当我在Excel2016中点击下面一行时，现在每次都要花一分钟以上的时间。列中只有300行。我所要做的就是剪切一列并将其粘贴到另一列旁边

Selection.Insert Shift:=xlToRight

示例代码如下，但我有30多个这样的代码，所以需要半个小时

Columns("E:E").Select
Selection.Cut
Columns("C:C").Select
Selection.Insert Shift:=xlToRight

---

你知道为什么吗？

你有公式甚至外部参考吗？那么请试试这个：

ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWorkbook.UpdateRemoteReferences = False
Application.Calculation = xlManual

ActiveSheet.Columns("E:E").Cut
ActiveSheet.Columns("C:C").Insert Shift:=xlToRight

ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
ActiveWorkbook.UpdateRemoteReferences = True
Application.Calculation = xlCalculationAutomatic

' If it's faster, then uncomment following line additionally
' Application.CalculateFull

---

你有公式，甚至是外部参考吗？那么请试试这个：

ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWorkbook.UpdateRemoteReferences = False
Application.Calculation = xlManual

ActiveSheet.Columns("E:E").Cut
ActiveSheet.Columns("C:C").Insert Shift:=xlToRight

ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
ActiveWorkbook.UpdateRemoteReferences = True
Application.Calculation = xlCalculationAutomatic

' If it's faster, then uncomment following line additionally
' Application.CalculateFull

---

应该加快速度。如果使用ctrl+x/ctrl+v手动执行，则测试是否需要相同/相似的时间。如果是，则不是编程问题，而是工作表及其包含的数据的问题。您确定只有300行吗？如果工作表很小，这会立即执行，但是如果单元格很低/很右被填充（可能是意外填充），这会花费很长时间。您好，我尝试过这一点，但在行选择上仍然存在问题。插入Shift:=xlToRight，我甚至尝试使用命名范围仅选择包含数据的列中的300行，但仍然需要时间。您尝试了任何其他方法，如插入列，然后剪切并粘贴，但仅限于数据。此外，正如@FunThomas所说，检查您拥有的数据也很有价值。也许可以尝试关闭计算来完成此操作？我再次问：如果使用ctrl+x/ctrl+v手动执行此操作，需要多长时间？应该加快速度。如果使用ctrl+x/ctrl+v手动执行，则测试是否需要相同/相似的时间。如果是，则不是编程问题，而是工作表及其包含的数据的问题。您确定只有300行吗？如果工作表很小，这会立即执行，但是如果单元格很低/很右被填充（可能是意外填充），这会花费很长时间。您好，我尝试过这一点，但在行选择上仍然存在问题。插入Shift:=xlToRight，我甚至尝试使用命名范围仅选择包含数据的列中的300行，但仍然需要时间。您尝试了任何其他方法，如插入列，然后剪切并粘贴，但仅限于数据。此外，正如@FunThomas所说，检查您拥有的数据也很有价值。也许可以尝试关闭计算来完成此操作？我再次询问：如果使用ctrl+x/ctrl+v手动执行此操作，需要多长时间？非常感谢，但不幸的是，此操作不起作用。我不知道；我没有任何公式或外部参考。如果我找到一个解决方案，我会更新这篇博文，非常感谢，但不幸的是，这没有起作用。我不知道；我没有任何公式或外部参考。如果我能找到解决办法，我会更新这篇文章