VBA 将偏移量复制粘贴到另一个工作簿

Question

如果你能帮助我，我需要你的建议，因为我的 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

Answer 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

VBA 将偏移量复制粘贴到另一个工作簿

VBA copy-paste offset to another workbook

excel

vba

copy-paste

offset