如何复制和转置数据VBA excel

Question

我试图将数据从“ Sheet1”复制到“ sheet2”，然后将数据从水平转换为垂直。

我可以复制数据，但是我曾尝试过，但是对如何转置它感到困惑：

Sub sbCopyRangeToAnotherSheet()

Sheets("Sheet1").Range("A1:G1").Copy Destination:=Sheets("Sheet2").Range("A1")

End Sub


Sub sbTranspose()


Dim MyArray As Range

Worksheets("Sheet2").Range("A1:E1").Formula = WorksheetFunction.Transpose(Range("A1:A40").Formula)


End Sub

这是我拥有的数据：

我希望它像这样：

Answer 1

我使用]修复了它>

    Sub Transpose_ex1()
Range("H1:I10").Value = WorksheetFunction.Transpose(Range("A1:F3"))
End Sub