Серьезно низкая производительность при вставке столбца в Excel 2016

Question

В Excel 2007 не было никаких проблем, но когда я нажал на строку ниже в Excel 2016, это теперь занимает больше минуты каждый раз. В столбце всего 300 строк. Все, что я хочу сделать, это вырезать столбец и вставить его рядом с другим столбцом.

Selection.Insert Shift:=xlToRight

Пример кода выглядит следующим образом, но у меня их 30 с лишним, так что это занимает полчаса.

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

Есть идеи почему?

Answer 1

У вас есть формулы и, возможно, даже внешние ссылки? Тогда, пожалуйста, попробуйте это:

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