将列移到左侧

Question

嘿伙计我刚才有一个关于使用VBA向左移动一个列的快速问题。我正在将第25列移动到A1并且这样可以正常工作，但它正在替换第1列。如何重写此代码，以便我移动的列不会替换我将其移动到的列？谢谢。

这是我到目前为止的代码。我基本上希望A1中的每一列都向右移动，这样除了我要移动的列之外什么都不会被删除。

Sub Move_Column_Left()

    Columns(25).Cut Range("A1")

    Columns(25).Delete Shift:=xlToLeft

End Sub

Answer 1

Columns(25).Cut
Columns(1).Insert Shift:=xlToRight