从 1 个工作表垂直范围复制到水平行工作表 2答案

【问题标题】：Copy from 1 sheet vertical range to horizontal row sheet 2从 1 个工作表垂直范围复制到水平行工作表 2
【发布时间】：2016-09-10 13:48:37
【问题描述】：

多年后我开始重新回到 vba，忘记的比我记得的要多，想知道是否有人可以提供帮助。

我希望从工作表 1 复制数据，特定单元格，然后将其添加到下一个空白行，以便水平粘贴而不是垂直粘贴。

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

Sub AddEntry()

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

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

End Sub

【问题讨论】：

标签： vba excel

【解决方案1】：

您需要使用“转置”参数。但不确定它是否适用于 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

【讨论】：

啊哈！谢谢！我知道我忘记了一些东西！