VBA – 列插入代码优化

我正试图在Worksheet中插入一列，

这里去我的代码，

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

有没有办法运行这个代码，快一点。 目前它正在5-10秒之间采取任何事情。

谢谢。

Answer 1

这应该更快：（不要使用Select和Selection ）

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