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

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

东西/原料

• Excel（教程以Excel2013为例）

方式/步调

1. 1

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

   
2. 2

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

   33插入控件技巧

   
3. 3

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

   
4. 4

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

   
5. 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. 6

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

   
7. 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. 8

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

   

注重事项

• 整行数据上下移动的方式与此近似，若是您感乐趣，不妨本身测验考试以下。
• 若是对您有点帮忙，请撑持一下，感谢！