1樓：excel小奇
要通過vba把sheet1工作表中的資料寫入sheet2工作表中，可以採用如下方法：
1、假如要把sheet1工作表中a1單元格的資料寫入sheet2工作表的a1單元格中。
2、可以執行以下語句：
sub test()
sheets("sheet2").range("a1").value=sheets("sheet1").range("a1").value
end sub
3、語句解釋：range("a1")代表a1單元格，.value代表是單元格的值屬性。
2樓：我的王是金閃閃
sub a()
[a1].copy iif([a1]="",[a1],sheets(2).[a65536].end(3).offset(1))
end sub
將表1的資料插入到sheet2的a列。
excel vba中怎麼把另外一個excel檔案的sheet1完全（資料及格式）複製到當前sheet1
3樓：表裡如一
按alt+f11,插入
抄一個模組,輸入下列**.即可襲
sub copyall()
fname = "c:\book2.xls" '需要復bai制的excel檔案地址及文du件名,你自
己修zhi改
set d = getobject(fname) '開啟檔案
d.sheets("sheet1").cells.copy activesheet.cells(1, 1) '將sheet1完全複製到當前表dao
d.close '關閉檔案
set d = nothing
end sub
4樓：匿名使用者
呵呵，錄製一個巨集就可以啦。下面是我在book1中呼叫f:\巡檢回.xls的sheet1：答
workbooks.open filename:="f:\巡檢.xls", editable:= _
true
sheets("sheet1").selectsheets("sheet1").copy after:=workbooks("book1").sheets(1)
windows("巡檢.csv").activateactivewindow.close
5樓：匿名使用者
book2.xls檔案
bai在同du一zhi文dao件夾回
下答workbooks.open thisworkbook.path & "\book2.xls"
sheets("sheet1").cells.copy workbooks("book1").sheets("sheet1").cells
activewindow.close = true
ecel中如何用vba向單元格賦值
sheet1.cells 2,1 value 祝你快樂 也可以 worksheets sheet1 range b1 value 祝你快樂 其中sheet是你所在的 sheet1是第一張表 activecell.formular1c1 祝你快樂！你看是這樣嗎？ 玩手機的張先生 sub sss dim...
如何將ecel表匯入photoshop的psd檔案中
張掖新亞廣告 教你個好辦法吧，我經常用的。但是你要用wps office 辦公軟體 軟體的excel，這個軟體有一個功能是可以匯出pdf檔案 檔案 輸出為pdf格式，之後把pdf。我用的ps cs4版本，能開啟pdf格式的檔案。匯入ps中，匯入ps過程中會提醒你要多少的解析度，這個解析度可以自己設定...
請問如何用VBA將EXCEL檔案中的資料複製到別EXCEL檔案相同的位置
sheet1的區域a1 c3拷貝到sheet2的區域a1 c3 sheet1.range a1 c3 copy sheet2.range a1 c3 丙雅弘雨凝 sub aaa dim sh1 as worksheet dim sh2 as worksheet set sh1 workbooks 1...