VBA:转置最后一行

Sub TransposeLastRow()
    Dim lastRow As Long
    Dim lastColumn As Long
    Dim rngSource As Range
    Dim rngDestination As Range
    
    ' 获取最后一行和最后一列的行号和列号
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    lastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 定义源数据范围和目标数据范围
    Set rngSource = Range(Cells(lastRow, 1), Cells(lastRow, lastColumn))
    Set rngDestination = Range(Cells(1, lastColumn + 2), Cells(lastColumn + 2, 1))
    
    ' 转置数据
    rngSource.Copy
    rngDestination.PasteSpecial Transpose:=True
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
End Sub