Re: [VBA ] 複製報表至另外一個工作表

[icene (kkk)]

Private Sub CommandButton1_Click()
Sheet1.Range("a1:c3").Copy

If Sheet2.Range("a1") = Empty Then
    Sheet2.Range("a65536").End(xlUp).PasteSpecial xlPasteAll
Else

    Sheet2.Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
End If

Application.CutCopyMode = False

End Sub


※ 引述《frank25 (一Sunny Boy一)》之銘言：
: 這個問題我翻了很多書卻不知道該怎麼把它寫出來QQ
: 想請問一下，如果今天我在excel的sheet1，經由程式得到一個報表，
: 現在想重覆執行把它複製貼上到sheet2去，
: 我的問題出在第二次以後，我該如何把報表從空白處貼起，
: ex:
: 第一次執行:
: 產生報表(在sheet1)
:     A    B    C
: 1  25   26   12
: 2  24   30   15
: 3  17   20   27
: 複製貼上到sheet2去(起始點是A1)
:     A    B    C
: 1  25   26   12
: 2  24   30   15
: 3  17   20   27
: 第二次執行:
: 產生報表(在sheet1)
:     A    B    C
: 1  27   20   30
: 2  25   25   15
: 3  27   32   15
: 當我想複製貼上到sheet2去時，我該如何讓它能夠從A4開始貼起呢??
: 還請各位大大幫忙一下^^!...謝謝 m(_ _)m

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 61.217.214.220
推 frank25:謝謝大大的幫忙，原來可以用xlup來判讀m(_ _)m