如何在excel中用可变列vba复制范围

Sub CopyRange()
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim lastColumn As Long
    
    ' 设置源范围
    Set sourceRange = Range("A1:A10")
    
    ' 获取最后一列的列号
    lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 设置目标范围
    Set destinationRange = Range(Cells(1, lastColumn + 1), Cells(10, lastColumn + 1))
    
    ' 复制源范围到目标范围
    sourceRange.Copy destinationRange
End Sub