如何使用VBA将范围中的列更改为A列？

Sub ChangeColumnToA()
    Dim rng As Range
    Dim lastRow As Long
    
    ' 设置要更改列的范围
    Set rng = Range("B:C")
    
    ' 获取范围中的最后一行
    lastRow = rng.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 将范围中的列更改为A列
    rng.Cut Destination:=Range("A1")
    
    ' 删除多余的列
    Range("B:C").Delete Shift:=xlToLeft
    
    ' 调整工作表的列宽以适应新的列
    Columns.AutoFit
End Sub