1樓：暴建設修媚
感覺像是合併工作表。
就是把相同格式的工作表合併在一起。
用以下vba吧。
合併時不會修改原表數乎侍據，但是會合並共工作簿下其他工作表。
xrange("鍵姿a65536").end(xlup).rowcells(x,1).selectforiifsheets(i).name
thensheets(i).
xrange("a65536").end(xlup).rowcells(x,1).select
nextmsgbox
工歲亮吵作表合併完畢！",vbinformation,提示"
2樓：斐素芹箕未
做了兩個模擬的表，具體如下絕指。表1表2
然後在表1中使用vlookup函式抽取表2的編號，公式=vlookup(b2,sheet2!a:b,2,0)，下拉。並中配。
#n/a項為表2中沒有的專案，無法抽取。培謹。
vba，如何提取**中的行資料，逐一新增到另外一張工作表中
3樓：老鼠麥大公尺
複製到模組中後，解除註釋塊。
sub copy2sheet61()
dim i as integer
dim rw as range
sheets(61).range("a1:d1") = array("標題a", "標題b", "標題c", "標題d")
for i = 1 to 60
for each rw in sheets(i).range("a1:d4").rows
if <>0 then' sheets(61).range("a65536").end(xlup).offset(1)
end if
next next
end sub
用excel vba提取不同工作表中非重資料
4樓：我的王是金閃閃
是所有工作表的l列的資料放在一起，再提取不重複值。還是分別提取不重複值。這個要說清楚。
vba的判斷檔名，然後提取不同工作表內的資料
5樓：太極健
你應該是要遍歷資料夾下book工作簿，而不應該遍歷所有檔案，如果不是book檔案，會找不到sheet工作表，這樣會產生錯誤的。修改**如下。
6樓：網友
這個可以做，jia 1722187970細談，另外怎麼都沒有懸賞分的呢。
excel vba高手請進（資料提取）
7樓：真真真白丁
親，您一定要用vba嗎，其實公式做起來還快一些。
如下圖：在d2輸入公式並右拉下拉：
index(a:a,counta(a:a)-row($a1)+1)
8樓：匿名使用者
sub movedata()
dim i as long, j as longj = 2
with sheets("表一")
for i = . to 5 step -1if .cells(i, 3) <"" thenj = j + 1
sheets("表二").cells(j, 2) = .cells(i, 3)
sheets("表二").cells(j, 3) = .cells(i, 4)
end if
next i
end with
end sub
表名改成你自己的表名即可。
9樓：網友
把資料複製到表二中，在乙個空列輸入「序號..然後，游標在序號列，點「排序」（降序）按鈕，就是你要的式樣了。完成排序後，可以刪除序號。
excel vba 跨工作簿的資料提取
10樓：一點設計演示
做了兩個模擬的表，具體如下。
表1表2然後在表1中使用vlookup函式抽取表2的編號，公式=vlookup(b2,sheet2!a:b,2,0)，下拉。
#n/a項為表2中沒有的專案，無法抽取。
11樓：百花殘
我昨晚給你答案了，叫工作簿，每個工作簿檔案裡可能有好幾個工作表(sheet），你得把工作表的名字也寫對，如 workbooks(""). sheets("sheet2"). range("a1") = workbooks("").
sheets("sheet1") .range("a1")求採納。
用excel vba怎麼把多個工作表裡的資料複製到乙個工作表裡
12樓：帳號已登出
sub ad()
for i = 1 to 20
worksheets("sheet" & i).range("2:18").copy _
worksheets("sheet21").range("a" & i - 1) *17 + 1))
next i
end sub
要求：1、表名sheet1、sheet2、……sheet212、資料彙總表名：sheet21
其他問題，hi我，或留訊息。
13樓：網友
用vba可以實現，你可以留個郵箱我編個例子發給你。你按例子套用就行了。
VBA怎麼在資料夾內，提取EXCEL的特定內容？
sub readsubfolders i cells end row set fso createobject set myfolder d a 引號內填寫資料夾a的完整路徑。for each myfile in if like xls then set wb i i cells i, cells ...
用VBA刪除指定列，請問如何使用vba刪除某一列單元格的中包含某特定字元所在的行
sub test dim i as integer,myrange as rangeset myrange columns 2 for i 2 to 22 step 5 最後一列暫時定為第22列，可以自己調整 set myrange union myrange,columns i next i my...
用vba怎樣取excel中的一列在將提取的資料放到另sh
用我這個，sub aa range a1 a5 copy sheet2.range a1 pastespecial xlpasteall,true range a1 a5 clear 用來刪除複製的區域，如果區域需要保留，就把這句刪掉 end sub dim xsht1 as worksheetdi...