例如：

Sub Macro1（）

    Selection.EntireColumn.Cut

    Cells.Find（What：=" *&quot ;, SearchOrder：= xlByColumns，_

        SearchDirection：= xlPrevious）.Offset（0 ，1）.EntireColumn.Insert

End Sub

Sub Macro1()
    Selection.EntireColumn.Cut
    Cells.Find(What:="*", SearchOrder:=xlByColumns, _
        SearchDirection:=xlPrevious).Offset(0, 1).EntireColumn.Insert
End Sub