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

在處理資料過程中，經常會碰到需要將整列資料左右移動位置（或者整行資料上下移動位置），本教程就是教大家如何通過按鈕快速實現整列（或整行）資料快速移動位置。教程以整列移動為例，整行資料的操作方法類似。

操作方法

（01）本教程以圖中資料為例，就是單元格內容為2的列數，即B列。

（02）插入ActiveX按鈕控制元件，如果您找不到命令，可以參考以下連結：

（03）設定按鈕格式，本教程編輯文字為“整列向右移動一格”。

（04）給按鈕指定需要實習右移功能的程式碼，點選右邊的“新建”按鈕，進入VBA視窗。

（05）在模組中Sub 按鈕1_Click() 和End Sub之間輸入整列右移程式碼：Dim i%Dim j%i = = mnCells(i, j)ct   '選擇需要移動的列                           ‘剪下需要移動的列Cells(i, j + 2)ct        ’選擇需要插入的位置rt Shift:=xlToRight         ‘插入已剪下列Cells(i, j + 1)ct           ’游標返回源資料

（06）返回Excel視窗，同理製作一個 “整列左移一格” 按鈕。

（07）給“整列左移一格” 按鈕指定程式碼如下：Dim i%Dim j%i = = mnCells(i, j)ells(i, j - 1)rt Shift:=xlToRight

（08）回到Excel介面，將游標放在需要移動列的任意一個單元格（或者列中的任意區域，或者選擇整列），然後點選移動按鈕即可，本教程以B列右移一格為例：先選中B13，然後點選右移按鈕，效果如圖所示，B列整體移到了原來C列的位置。

特別提示

整行資料上下移動的方法與此類似，如果您感興趣，不妨自己嘗試以下。

如果對您有點幫助，請支援一下，謝謝！