excel 宏2007 单元格左移右移

首先“视图”，“宏”。

点击“查看宏”。

输入“宏名”，并且点击“创建”。

输入对应的代码： Application.ScreenUpdating = Falsex = Selection.ColumnIf x >= 1 ThenColumns(x).CutColumns(x - 1).InsertApplication.ScreenUpdating = TrueEnd If

写完代码之后，然后退出宏。

然后执行相应的代码即可。