如何调换当前范围？

Question

如何转置下面代码中的输出？

Dim lastRow As Range, rng1 As Range
Set rng1 = Worksheets(1).Range("I80:I83")
Set lastRow = ThisWorkbook.Worksheets("Sheet1").Cells(ThisWorkbook.Worksheets("Sheet1").Rows.Count, "B").End(xlUp)
lastRow.Offset(1, 0).Resize(rng1.Rows.Count, rng1.Columns.Count) = rng1.Value

Answer 1

应该可以。考虑以下示例：（无法发表评论）

With Sheet1 '/* or what ever your sheet object is */
    .Range("A1") = 1
    .Range("A2") = 2
    .Range("A3") = 3

    .Range("C1:E1") = Application.Transpose(.Range("A1:A3"))
End With

正在应用您的代码：

Dim lastRow As Range, rng1 As Range

With Thisworkbook.Sheets(1)
    Set rng1 = .Range("I80:I83")
    Set lastrow = .Range("B" & .Rows.Count).End(xlUp)
    lastrow.Offset(1, 0).Resize(rng1.Columns.Count, rng1.Rows.Count) = rng1.Value
End With

如何调换当前范围？

How do I transpose my current range?

excel

vba

transpose