①單擊菜單欄--視圖--宏--查看宏。

　　②彈出宏的界面，輸入宏的名稱，這里為了便于記憶，我們命名為向左移動一列，然后點擊創建按鈕。

　　③在新出現的界面中，輸入代碼，也就是程序語言，我已經寫好了，大家直接復制即可。

　　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