VBA：转置最后一行

我试图转置我的电子表格的最后一行，以便它成为一列。

我已经开始这样，我检索电子表格的最后一列/行号，但我不知道如何使它转换与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 

会产生：