如何彙總乙個資料夾中所有工作簿工作表1表A1單元格的內容 vba

建立乙個新工作簿，將所有 Excel 工作表的檔名填寫到 A 列中，將以下 VBA** 複製到工作簿中，並將其儲存為執行工具。

sub xlscopy()

falsearr 陣列由所有 excel 檔名組成。

arr = a1:a10]

for i = 1 to ubound(arr)"資料夾路徑"Hongchang & arr（i， 1）workbooks（arr（i）（1）））。activatefor j = 1 to

sheets(j).copy after:=workbooks("").sheets(workbooks("").

nextworkbooks(arr(i, 1)).close false

nextend sub

彙總 2007 版本並刪除 Excel 上的磁帶

sub 聚合資料（）。

dim r&, c&, filename$, wb as workbook, sht as worksheet, erow&, fn$, arr as variant

r = sheets(1).range("a65536").end(xlup).row

falsefilename = dir（ & 包含在 *..） 中xlsx")do while filename <>

if filename thenfn = & filename

set wb = getobject(fn)set sht =

1) =, 1).value

falser = r + 1

end if

filename = dir '獲取其他工作簿名稱。

trueend sub

<>用這個橙色合併軟體，讓輝族滲透，快速高效。

最後，這個效果似乎還不清楚，n**以相同的格式，“複製到”乙個格式相同的工作表？ 如何繁殖？ 複製後還是一樣的格式嗎？

應該解釋如何將資料從 n 個源表傳輸（彙總）到彙總表：

第一種是順序追加：複製每個源表後，按原點順序將值貼上到彙總表的不同行中（保留格式和值，刪除公式）。 例如：

源表1有1個資料a，源表2有1個資料b，彙總表是兩個資料a和b（該方法不要求彙總表有格式，彙總表其實就是乙個記錄遞增的疊加表）。

二是定位求和：即複製後，每個源表都會對彙總表的相應單元格進行數值或其他操作。 例如：

源表1有1個資料5，源表2有1個資料3，彙總表1個資料8，計數彙總表1個資料2。 （這樣，彙總表必須與源公式一致，但必須定義每個單元格的彙總規則）。

最常用的定位加法總是單元格值的累加，也叫求和，其次是均值、最大值、最小值、中位數、計數等，對於字元單元格，也有合併、計數和忽略。

你想要哪個？

如圖所示，a、b、c三個資料夾，每個資料夾下的檔案如下，都是乙個名為aaaa的工作表，在這個工作表中，有6列12行資料，已經設定為**，並建立了乙個新的彙總檔案。

在摘要檔案中建立查詢。

輸入位置。 直接選擇“合併並載入”。

如果不設定**，這裡只會顯示工作表，只需選擇要合併的工作表，這是合併結果，如有必要，只需刪除以前的工作表名稱即可。

b、c 目錄也可以操作到新工作表中。

如何將資料夾中的所有檔案表合併到摘要檔案中。