右 Excel通过按钮一键控制整列数据向左移动 _Excel（教程以Excel2013为例）

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

文章插图

需要这些哦
Excel（教程以Excel2013为例）
方式/
1本教程以图中数据为例，就是单位格内容为2的列数，即B列。

文章插图

2插入ActiveX按钮控件，若是您找不到号令，可以参考以下链接：
33Excel插入ActiveX控件技巧

文章插图

3设置按钮格局，本教程编纂文字为“整列标的目的右移动一格” 。

文章插图

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

文章插图

文章插图

5在模块中Sub 按钮1_Click() 和 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