粘贴后移动一个范围

所以我正在寻找一个button，点击复制并粘贴一个范围从一张到另一张，随后的点击数据将被粘贴，覆盖前面的粘贴数据。 到目前为止，我已经写了这个代码，但我一直在改变如何更改数据粘贴的位置。

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 

Answer 1

 Worksheets("Secondary").Cells(Rows.Count,1).End( _ xlUp).Offset(1,0).PasteSpecial xlPasteValues 

假设每行的ColA总是有一个值。

Answer 2

尝试这样的事情：

 Worksheets("Secondary").Range("A1:J13").Offset(cnt*Range("A1:J13").Columns.count,0).PasteSpecial xlPasteValues 

要么

 Worksheets("Secondary").Range("A1:J13").Offset(0,cnt*14).PasteSpecial xlPasteValues