萬盛學電腦網

您现在的位置: 萬盛學電腦網 >> 辦公室軟體 >  >> Excel 教學 >> Excel 綜合

Excel 2007 自寫巨集:讓儲存格/整欄左移、右移一欄

Excel 無內建「移動欄位」快捷鍵,透過錄製巨集並編輯 VBA 即可實現一鍵左移/右移:

建立「向左移動一欄」巨集

  1. 「檢視」→「巨集」→「檢視巨集」→ 輸入巨集名稱 MoveLeft → 「建立」。
  2. 在 VBA 編輯器貼上代碼:
Sub MoveLeft()
    Application.ScreenUpdating = False
    x = Selection.Column
    If x >= 2 Then
        Columns(x).Cut
        Columns(x - 1).Insert Shift:=xlToRight
    End If
    Application.ScreenUpdating = True
End Sub
  1. 關閉 VBA 編輯器,回到 Excel 選取任意儲存格或整欄,執行巨集(Alt+F8 選 MoveLeft 執行),該欄即左移一欄。

建立「向右移動一欄」巨集

同樣建立巨集 MoveRight,代碼:

Sub MoveRight()
    Application.ScreenUpdating = False
    x = Selection.Column
    If x <= 255 Then  ' Excel 2007 欄上限 256 (XFD=16384 於 2007+)
        Columns(x).Cut
        Columns(x + 1).Insert Shift:=xlToRight
    End If
    Application.ScreenUpdating = True
End Sub

開啟巨集對話框

命名巨集

編輯 VBA 代碼

向右移動代碼

將巨集加入「快速存取工具列」或指定快捷鍵(選項→自訂功能區→巨集),即可一鍵左右移動欄位,大幅提升整理表格效率。

copyright © 萬盛學電腦網 all rights reserved