作者icene (kkk)
看板Visual_Basic
标题Re: [VBA ] 复制报表至另外一个工作表
时间Thu Nov 1 19:58:29 2007
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
1F：推 frank25:谢谢大大的帮忙，原来可以用xlup来判读m(_ _)m 11/02 17:24