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

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

0 голосов
/ 16 января 2019

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

Selection.Insert Shift:=xlToRight

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

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

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

1 Ответ

0 голосов
/ 16 января 2019

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

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
...