Question

所以我希望有一个按钮，点击复制并粘贴从一张纸到另一张纸的范围，然后在点击后，粘贴数据而不覆盖先前粘贴的数据。到目前为止，我已编写此代码，但我仍然坚持如何更改数据的粘贴位置。

  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

粘贴后移动范围

2 个答案: