操作方法
本教程以图中数据为例，就是单元格内容为2的列数，即B列。
插入ActiveX按钮控件，如果您找不到命令，可以参考以下链接：
设置按钮格式，本教程编辑文字为“整列向右移动一格”。
给按钮指定需要实习右移功能的代码，点击右边的“新建”按钮，进入VBA窗口。
在模块中Sub 按钮1_Click() 和End Sub之间输入整列右移代码： Dim i% Dim j% i = ActiveCell.Row j = ActiveCell.Column Cells(i, j).EntireColumn.Select '选择需要移动的列 Selection.Cut ‘剪切需要移动的列 Cells(i, j + 2).EntireColumn.Select ’选择需要插入的位置 Selection.Insert Shift:=xlToRight ‘插入已剪切列 Cells(i, j + 1).EntireColumn.Select ’光标返回源数据
返回Excel窗口，同理制作一个 “整列左移一格” 按钮。
给“整列左移一格” 按钮指定代码如下： Dim i% Dim j% i = ActiveCell.Row j = ActiveCell.Column Cells(i, j).EntireColumn.Select Selection.Cut Cells(i, j - 1).EntireColumn.Select Selection.Insert Shift:=xlToRight
回到Excel界面，将光标放在需要移动列的任意一个单元格（或者列中的任意区域，或者选择整列），然后点击移动按钮即可，本教程以B列右移一格为例：先选中B13，然后点击右移按钮，效果如图所示，B列整体移到了原来C列的位置。