1
所以我正在寻找一个按钮,点击复制并粘贴范围从一张纸到另一张纸,随后的点击将粘贴数据,覆盖前一张粘贴的数据。到目前为止,我已经写了这段代码,但是我一直在改变如何更改粘贴数据的位置。粘贴后移动一个范围
Sub CommandButton1_Click()
Application.ScreenUpdating = False
Static cnt As Long
cnt = cnt + 1
Me.CommandButton1.Caption = "I have been clicked " & cnt & " times"
Worksheets("Main").Range("A1:J13").Copy
Worksheets("Secondary").Range("A1:J13").PasteSpecial xlPasteValues
Application.ScreenUpdating = True
End Sub
非常感谢您完美的作品! – MSchmidt