Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
教你一个用VBA的技巧:
以后你想知道类似于插入的vba编码怎么写,可以利用宏录制,宏录制后会自动在编辑器中生成一个模块,你所录制的宏 的相应编码就在里面,这样你就可以参考使用了。
Sub example()
'在E列左边插入1列
Columns("E:E").Insert
'或者
Columns(5).Insert
End Sub
在模块中输入以下语句,这里是在C列之前插入一列,根据实际情况自行调整"C:C"即可。
Sub 插入列()
Columns("C:C").Insert Shift:=xlToRight
End Sub
直接录制宏就可以了
Sub Macro2()'
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub