VBA Excel -查找某一列，并将其移动到Excel中另一列之前的列

Sub MoveColumn()
    Dim searchRange As Range
    Dim searchColumn As Range
    Dim moveColumn As Range
    
    ' 设置查找范围，例如A1:A10
    Set searchRange = Range("A1:A10")
    
    ' 设置要查找的列，例如列A
    Set searchColumn = searchRange.Columns(1)
    
    ' 设置要移动的列，例如列B
    Set moveColumn = searchRange.Columns(2)
    
    ' 查找并移动列
    With searchColumn
        .Cut Destination:=moveColumn
    End With
End Sub