步骤/方法
在菜单栏上面点击【开发工具】选项，在该选项下，我们点击【宏】按钮，打开宏对话框。
打开了宏对话框，我们填写宏名为【向左移动一列】，然后点击【创建】按钮。
打开了宏编辑器，在这个模块里，我们输入如下代码，然后点击关闭。代码如下： Sub 向左移动一列() Application.ScreenUpdating = False x = Selection.Column If x >= 1 Then Columns(x).Cut Columns(x - 1).Insert Application.ScreenUpdating = True End If End Sub
接着再次在菜单栏上执行：开发工具--宏
在宏对话框中，输入宏名为【向右移动一列】，然后点击创建
输入如下代码，然后点击关闭按钮。代码如下： Sub 向右移动一列() Application.ScreenUpdating = False x = Selection.Column If x < 256 Then Columns(x).Cut Columns(x + 2).Insert End If Application.ScreenUpdating = True End Sub
返回到了vb编辑器，关闭它就可以返回到excel
在excel中，我们点击想要移动的这一列的列头，也就是图示中的字母E的位置，这样就选中了整个列
接着我们点击菜单栏上面的：开发工具--宏
点击【向左移动一列】，选中这个宏，然后点击【执行】。
我们看到这一列已经移动了，这就是效果图：
如果你想要移动的方向是向右移动一列，你就要选择另一个宏了。