①單擊菜單欄--視圖--宏--查看宏。
②彈出宏的界面,輸入宏的名稱,這裡為了便於記憶,我們命名為向左移動一列,然後點擊創建按鈕。
③在新出現的界面中,輸入代碼,也就是程序語言,我已經寫好了,大家直接復制即可。
Application.ScreenUpdating = False
x = Selection.Column
If x >= 1 Then
Columns(x).Cut
Columns(x - 1).Insert
Application.ScreenUpdating = True
End If
④退出編輯狀態,選中單元格或者整列,執行宏即可。下面,我把向右移動一列的代碼也給大家。
Application.ScreenUpdating = False
x = Selection.Column
If x < 256 Then
Columns(x).Cut
Columns(x + 2).Insert
End If
Application.ScreenUpdating = True
End Sub