1樓：匿名使用者
sub 匯集資料()
dim s as worksheet
c=1for each s in thisworkbook.worksheets
with s
if .name <> "彙總表" then '假設存放結果的工作表叫「彙總表」，如果不是請做相應修改
c = c + 1
for i=1 to 10 '假設你有10列資料要拷到彙總表sheets("彙總表").cells(c, i) =s.cells(37, i)
next i
end if
end with
next
end sub
2樓：魚木混豬喲
以下為**及注釋：
sub main()
k=1for each s in thisworkbook.worksheets'遍歷所有工作表
with s
if .name <> "彙總表" then '如果工作表名字不是「彙總表」
k = k + 1『k進行累加
for i=1 to 10 '迴圈拷貝
sheets("彙總表").cells(k, i) =s.cells(37, i) '彙總表中從第一行累加，1-10列依次等於其他各個工作表中的37行1-10列
next i
end if
end with
next
end sub
excel如何把同乙個工作簿中，指定工作表合併到一張工作表上（請使用vba）
3樓：匿名使用者
其實，這個問題很簡單，excel有個vlookup是查詢列的函式，還有的函式是查詢行的。hlookup。你可以用表頭為匹配條件查詢其他行。
當然唯一不方便的是，因為你是6張表，所以需要分5部分寫函式。
4樓：匿名使用者
對錶2、3、4的格式有要求嗎？（即：是要複製，還是直接賦值也可以？）
最終是生成張新表還是直接在表1中？
求乙個vba，excel中，如何將多個工作簿合併成乙個工作表？
5樓：匿名使用者
下面的鏈結是我以前回答的乙個類似的問題,你先看一下和你的要求有哪些不同,提出來,我再幫你修改.
EXCEL提取資料如何將所有張三的資訊提取在另一張表中
1你可以在另一張表中做個查詢系統之類的 你輸入姓名就把所有的關於張三的資訊提取過去了。或者你用資料透視表，資料透視表的位置放在另乙個表中，然後做完後可以進行篩選的，可以選擇張三，也可以選擇李四，這個透視表中的內容和原 是繫結在一起的，如有改動會更新的 全選b列 選單欄上，資料 篩選 自動篩選 點選b...
如何將Excel表中有用的資料匯入到另表中去
想把資料倒過去的話，那些複製貼上直接就可以的。如何將一個excel 的內容轉移到另外一個 中去 深圳市勵拓軟體 拖移選中要複製的單元格 點右鍵 選複製 在另一單元格需要放置內容的地方點右鍵 選貼上 選中這個表 移動或複製工作表 選個指定的工作簿 建立副本，就可以了 右點a與1相交的方格 左上角 選複...
如何將excel中各工作表彙總為一張表
如果你的每張工作表都使用同一種模板，這個很好做。假定你要把sheet2和sheet3的彙總到sheet1中，那先把模板複製到sheet1上，再看看表頭和專案名稱的描述是否適合這張彙總表，然後在顯示資料的單元格比如說a2內輸入公式 sheet2 b2 sheet3 b2 更方便的方法是選取或啟用a2，...