Excel VBA中的垂直到水平转置

一旦转置成功，我将面临到下一个单元格以获取其他条目的问题

---

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

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

Sub transposeVBAS()

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

End Sub

---

问题是什么？我不知道你需要什么。。。“其他条目的下一个单元格”是什么意思？第1页中的C13和第2页中的B3？表1中的范围D2:D12？请尝试更好地定义您的需求，以便获得一些帮助…抱歉，没有明确说明。代码能够将垂直条目转换为B2:L2，但当我将新数据输入垂直格式时，新数据将覆盖B2:L2上的旧数据。这里的帮助是，数据应该转置到B3:L3、B4:L4 B5:L5等。然后您可以将数据写入下一个可用的数据。了解将转置值粘贴到何处，但您是否可以一直从范围表中复制数据表1.RangeC2:C12？先生，非常感谢。我被这个EndX1Up和类似的syntax.xlUp所困扰——它是字母l，而不是数字1。

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