VBA: 转置最后一行

Question

我正在尝试转置电子表格的最后一行，使其成为一列。

我已经开始检索电子表格的最后一个 column/row 编号，但我不知道如何将它变成一个数组以用 Application.transpose(myarray) 或 Application.WorksheetFunction.Transpose(myarray) 转置它

Dim lRow As Long, lCol As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
lCol = Cells(1, Columns.Count).End(xlToLeft).Column

有什么建议吗？

谢谢

Answer 1

开始于：

运行:

Sub xPose()
    Dim r As Range, N As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
    Set r = Cells(N, 1).EntireRow

    r.Copy
    Cells(N + 1, 1).PasteSpecial Transpose:=True
    r.Delete
End Sub

将产生：

VBA: 转置最后一行

VBA: transpose last row

excel

vba

transpose