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'切換。 –

回答