VBA复制粘贴偏移到另一个工作簿答案

【问题标题】：VBA copy-paste offset to another workbookVBA复制粘贴偏移到另一个工作簿
【发布时间】：2017-04-28 08:52:05
【问题描述】：

如果你能帮助我，我需要你的建议，因为我的 VBA 知识很差。我有 4 列和数千行，我希望通过点击命令按钮将第一行复制粘贴到另一个工作簿中，然后第二次点击按钮覆盖之前的复制粘贴，依此类推（在第二个工作簿我有一些公式将适用于新值，我必须检查结果）。非常感谢！

这是我从一个工作簿复制粘贴到另一个工作簿的代码（代码正在移动到下一行，但它不会将另一个工作簿上的值复制粘贴到另一个工作簿中工作簿是相同的第一个值，所以这是我的困境）：

Private Sub CommandButton1_Click()

ActiveCell.Offset(1, 0).Activate

Workbooks("Book1.xlsm").Worksheets("Sheet2").Range("B4:E4").Copy
Workbooks("Book2.xlsm").Worksheets("Sheet1").Range("B20").PasteSpecial Transpose:=True

Application.CutCopyMode = False

End Sub

【问题讨论】：

标签： excel vba copy-paste offset

【解决方案1】：

请试试这个

Private Sub CommandButton1_Click()
ActiveCell.Offset(1, 0).Activate
Workbooks("Book1.xlsm").Worksheets("Sheet2").Range("A" & ActiveCell.Row & ":E" & ActiveCell.Row).Copy
Workbooks("Book2.xlsm").Worksheets("Sheet1").Range("B20").PasteSpecial Transpose:=True
End sub

【讨论】：

它工作完美，非常感谢 Maddy，你让我很开心，昨天我在一小时内完成了该代码，而在剩下的时间里，我只寻找我打开的问题这个线程...非常感谢您的回复！
欢迎加布里埃尔，请将此答案标记为正确