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 regtest dim oregexp as objectdim omatches as objectdim stext as string stext 柴塘河節制閘3300 bai4960平面鋼閘門du set oregexp createobject vbscript.regexp wi...
如何用EXCEL快速分配資料，如何將EXCEL中的資料平均分成若干份？
兩種方法 1 按各種情況自動篩選，再copy到各分表 2 插入一列，按各種情況錄入，進行標記，再按該列進行分類彙總，之後需要看什麼內容，就在本表內可以看，與有幾個分表內容一樣。按年齡排序，年齡就按大小排列了，一樣的年齡就排在一起了。在 右側找一空列，做序號，1 2 3 4 5 6 7 8 9 10。...
VBA如何用變數表示控制元件名
如果該控制元件位於userform窗體中，那麼我們可以用controls集合來表示指定的控制元件，例如，userform1中有三個控制元件，label1,label2,textbox1 那麼，我們可以這樣表示 a 1 b 2 userform1.controls label a caption 表示...