Excel VBA 中的垂直到水平转置

Question

Sub transposeVBAS()

Sheets("Sheet1").Range("C2:C12").Copy
Sheets("sheet2").Range("B2").PasteSpecial Transpose:=True

End Sub

一旦转置成功，我就无法转到下一个单元格以获取其他条目。

我知道我以前也遇到过类似的问题，但这些代码似乎很大。

Answer 1

如果您只是想粘贴到下一个可用行：

With Sheets("sheet2")
    .Cells(.Rows.Count, 2).End(xlUp).offset(1).PasteSpecial Transpose:=True
End With

Vertical to Horizontal Transpose in Excel VBA