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將工作表sheet1重新命名，因為要重
20時13分14秒 sub rename mydate format date,409 dd mmm yy 得到美式的日期格式 mymonth split mydate,split此日期格式，找到當前的月份的英語簡寫 myname ucase mymonth 1 ucase mymonth 0 ye...
請問如何用excel的VBA做出，從1 20中任取數的所有組合，總共是125970種，求高手支招，萬謝
如果你只是需要結果的話，可以用函式 combin 20,8 直接求的結果，如果真是要用vba實現的話按照 tat蘿蔔說的做就行了，完善如下 sub zuhe dim times as double for i1 1 to 13 for i2 i1 1 to 14for i3 i2 1 to 15fo...
如何用VBA關閉EXCEL的列印預覽
這個問題只能用send key 來解決了 但是 在列印預覽視窗出現了之後，任何 都無法執行，這個問題不知道怎麼破，都不能執行了 只能手動退出了，誒，最簡單的做法就是使用 錄製巨集 功能，再去檢視巨集 具體就好了 這個問題我今天也遇到了 當然了現在已經是2020年了 我的解決辦法就是繞過這個列印預覽對...