2015-10-05 113 views
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 

回答

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

假设总有每一行可乐的值。

+0

非常感谢您完美的作品! – MSchmidt

0

尝试这样:

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 
相关问题