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

看板Visual_Basic作者icene (kkk)時間18年前 (2007/11/01 19:58)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/2 (看更多)

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

11/02 17:24, , 1^F

11/02 17:24, 1^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 icene 的文章

文章代碼(AID): #17ARzceZ (Visual_Basic)