粘貼後移動一個範圍

所以我正在尋找一個按鈕，點擊複製並粘貼範圍從一張紙到另一張紙，隨後的點擊將粘貼數據，覆蓋前一張粘貼的數據。到目前爲止，我已經寫了這段代碼，但是我一直在改變如何更改粘貼數據的位置。粘貼後移動一個範圍

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

來源

2015-10-05 MSchmidt

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

假設總有每一行可樂的值。

來源

2015-10-05 16:28:28

非常感謝您完美的作品！ – MSchmidt

嘗試這樣：

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

來源

2015-10-05 16:28:51 qPCR4vir

粘貼後移動一個範圍

回答

相關問題