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复制粘贴到另一个工作簿的偏移量

1 个答案: