Excel通过按钮一键控制整列数据向左（右）移动

在处置数据过程中，经常会碰着需要将整列数据摆布移动位置（或者整行数据上下移动位置），本教程就是教大师如何经由过程按钮快速实现整列（或整行）数据快速移动位置。教程以整列移动为例，整行数据的操作方式近似。

工具/原料

1
本教程以图中数据为例，就是单位格内容为2的列数，即B列。
2
插入ActiveX按钮控件，若是您找不到号令，可以参考以下链接：
33Excel插入ActiveX控件技巧
3
设置按钮格局，本教程编纂文字为“整列标的目的右移动一格”。
4
给按钮指定需要练习右移功能的代码，点击右边的“新建”按钮，进入VBA窗口。
5
在模块中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
返回Excel窗口，同理建造一个 “整列左移一格” 按钮。
7
给“整列左移一格” 按钮指定代码如下：
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
回到Excel界面，将光标放在需要移动列的肆意一个单位格（或者列中的肆意区域，或者选择整列），然后点击移动按钮即可，本教程以B列右移一格为例：先选中B13，然后点击右移按钮，结果如图所示，B列整体移到了本来C列的位置。