- -不会啊 会的话 就不会问了
追答按Alt+F11,然后插入-模块,在出现的模块空白区域粘贴一下内容:
Sub 宏1()
Columns("D:D").Select
Selection.Cut
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Columns("E:E").Select
Selection.Cut
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
End Sub
然后保存
按Alt+F8 宏1,执行