1樓：匿名使用者
sheet1的區域a1:c3拷貝到sheet2的區域a1:c3
sheet1.range("a1:c3").copy sheet2.range("a1:c3")
2樓：丙雅弘雨凝
sub aaa()
dim sh1 as worksheet
dim sh2 as worksheet
set sh1 = workbooks("1.xls").sheets(1)
set sh2 = workbooks("2.xls").sheets(1)
sh1.range(sh1.[a1], sh1.range("a1").end(xldown)).copy sh2.[a1]
sh1.range(sh1.[a65536].
end(xlup), sh1.[a65536].end(xlup).
end(xlup)).copy sh2.[b1]
end sub隨便放哪個工作簿吧。但是，兩個工作簿都要開啟。當然你也可以加上開啟工作簿的**。
使用vba, 如何將一個excel文件中某個區域的內容自動複製到另一個excel文件中指定的某個區域?
3樓：太極健
這就一句話的事呀，兩個工作簿都已經開啟的情況下sub mycopy()
workbooks("工作簿1.xls").sheet1.
range("a1:c50").copy thisworkbook.
sheet2.range("a1")
end sub
意思就是把工作簿1中工作表sheet1的a1：c50區域複製到當前工作簿sheet2工作表的a1區域（這個區域與前面的區域是一樣的，只需要寫左上角的單元格即可）
4樓：匿名使用者
public sub copy()
range("a1:c10").select '複製的區域,自行修改
selection.copy '複製workbooks(2).activate '啟用第二個book
range("a1").select '區域,自行修改activesheet.paste '貼上end sub
Excel請問如何用VBA提取這個網頁上的開獎號碼
sub cc cells.clearcontents set odoc createobject htmlfile a1 c1 array 時間 開獎號碼 冠亞軍和 f1 1 5龍虎 可以提取，哪個網頁？excel 如何用vba提取網頁資料 1 首先開啟excel 2007工作表，點選想要把資料匯入...
EXCEL如何用公式或VBA實現自動算出可用庫存
如下，詳見附件 private sub commandbutton1 click for i 2 to a65536 end 3 row if cells i,1 cells i 1,1 then cells i,5 cells i 1,6 if cells i,5 0 then cells i,5...
vba讀取行數問題，請問如何用vba獲取excel某一單元格中文字的行數？（單元格是自動換行格式）
因為你的x和y並不是讀取行數 而是variant 是陣列 所以必須要先activate那一頁才對 給你舉個例子 dim i j dim x,y workbooks.open d 2.xls workbooks 2.xls activate i worksheets 1 a65535 end xlup...