在处理数据过程中，经常会碰到需要将整列数据左右移动位置（或者整行数据上下移动位置），本教程就是教大家如何通过按钮快速实现整列（或整行）数据快速移动位置。教程以整列移动为例，整行数据的操作方法类似。工具/原料moreExcel（教程以Excel2013为例）方法/步骤1/8分步阅读

本教程以图中数据为例，就是单元格内容为2的列数，即B列。

2/8

插入ActiveX按钮控件，如果您找不到命令，可以参考以下链接：

3/8

设置按钮格式，本教程编辑文字为“整列向右移动一格”。

4/8

给按钮指定需要实习右移功能的代码，点击右边的“新建”按钮，进入VBA窗口。

5/8

在模块中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 ’光标返回源数据

6/8

返回Excel窗口，同理制作一个 “整列左移一格” 按钮。

7/8

给“整列左移一格” 按钮指定代码如下：

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

8/8

回到Excel界面，将光标放在需要移动列的任意一个单元格（或者列中的任意区域，或者选择整列），然后点击移动按钮即可，本教程以B列右移一格为例：先选中B13，然后点击右移按钮，效果如图所示，B列整体移到了原来C列的位置。

注意事项

整行数据上下移动的方法与此类似，如果您感兴趣，不妨自己尝试以下。

如果对您有点帮助，请支持一下，谢谢！

EXCELVBA按钮整列移动