Excel通過按鈕一鍵控制整列數據向左（右）移動

在處置數據過程中，經常會碰著需要將整列數據擺布移動位置（或者整行數據上下移動位置），本教程就是教大師若何經由過程按鈕快速實現整列（或整行）數據快速移動位置。教程以整列移動為例，整行數據的操作方式近似。

東西/原料

1
本教程以圖中數據為例，就是單位格內容為2的列數，即B列。
2
插入ActiveX按鈕控件，若是您找不到號令，可以參考以下鏈接：
33插入控件技巧
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列的位置。