从1张垂直范围复制到水平排纸2

Question

多年后我开始回到vba，忘记了比记忆更多的事情，并想知道是否有人可以提供帮助。

我正在寻找从表1中复制数据的特定单元格，然后将其添加到下一个空行，以便水平而不是垂直粘贴。

下面的代码工作正常，除非每个项目都粘贴到下一行而不是水平横跨行，如果这有意义的话？

ATA Channel 1

Answer 1

你需要使用“transpose”参数。不确定它是否适用于excel 2003及早期版本

Sub AddEntry()

    Range("I11, I13, I15, I21").Copy

    Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, Transpose:=True

    Application.CutCopyMode = False    

End Sub