VBA -column挿入コードの最適化

は私のコードを行く、

Sheets(Currentsheetname).Range("A" & MyRow & ":B" & lastrow).Select 
.Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

は少し速く、このコードを実行するが方法です。現時点では、5〜10秒の間に何かを取っています。

ありがとうございました。

2017-09-29 Sid29

これは速くする必要があります：（SelectとSelectionを使用することはありません）

Sheets(Currentsheetname).Range("A" & MyRow & ":B" & lastrow).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

2017-09-29 16:54:42 braX

また、Excelは、それ自体を再描画いくつかの時間を費やしていることに、注目に値します。 OPは 'Application.ScreenUpdating'トグルについて知っていなければなりません。 –

答えて