如何將統一資料夾中的多個Excel工作表中的資料匯入到彙總表中？

為此，您必須使用VBA

子聚合資料智慧凳 （）。

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

r = 1 '標題的行號。

c = 1 '標頭包含列前行程的次數。

range(cells(r + 1, 1), cells(65536, c)).clearcontents '清除要儲存資料的區域的內容。

falsefilename = dir( &xlsx")

do while filename <>

if filename <>then

erow = range("a1"). 1

fn = & filename

set wb = getobject(fn)'以隱藏模式開啟工作簿。

set sht =

arr = + 1, 1), 1).end(xlup).offset(0, c - 1))

cells(erow, 1).resize(ubound(arr, 1), ubound(arr, 2)) arr

falseend if

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

trueend sub

為此，您必須使用VBA

sub 聚合資料（）。

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

r = 1 '標題的行號。

c = 丹柴 1'標題包含列數。

慢 Kai 範圍（cells（r + 1， 1）， cells（65536， c）））。clearcontents '清除要儲存資料的區域的內容。

falsefilename = dir( &xlsx")

do while filename <>

if filename <>then

erow = range("a1"). 1

fn = & filename

set wb = getobject(fn)'以隱藏模式開啟工作簿。

set sht =

arr = + 1, 1), 1).end(xlup).offset(0, c - 1))

哪種型別的單元格（erow，1）resize(ubound(arr, 1), ubound(arr, 2)) arr

falseend if

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

trueend sub

彙總方法如下：

1. 建立乙個新的空白 excel 檔案，單擊資料工具欄，然後選擇“新建查詢”-“從檔案”-“從資料夾”。

2.在彈出的對話方塊中，點選瀏覽選擇銷售資料所在的資料夾，也可以直接在位址列中輸入資料夾的位址，輸入後點選確定。

3.單擊後會彈出乙個新對話方塊 OK 在上一步中，單擊旁邊的下拉箭頭 合併 在下面，然後選擇 合併 和 在下拉選單中。

4.在合併檔案對話方塊中點選選擇sheet1，選擇後點選確定，確認後再進入查詢器，即可通過機器預覽和檢視部分資料資訊。

<>5，我們不需要第一列中的資料，單擊第一列的資料標題，右鍵選擇刪除。

6.刪除第一列後，確認資料沒有問題，點選查詢器上方的關閉並上傳; 點選關閉並上傳後，將 3 個 excel 檔案中的資料輸入到 excel 中，這樣 excel 的合併基本完成。

方法如下：操作裝置：戴爾膝上型電腦。

作業系統：win10

操作步驟：excel2019文件。

1. 首先開啟其中乙個 [Excel] 文件，如下圖所示。

2. 然後點選【資料】，如下圖所示。

3. 然後點選【新建查詢】，如下圖所示。

4. 然後單擊[從檔案]，如下圖所示。

5.然後單擊[從工作簿]，如下圖所示。

6. 然後選擇【其他Excel檔案】，點選【匯入】按鈕，如下圖所示。

7. 然後點選【要匯入的圖紙】進行合成，如下圖所示。

8. 然後點選 [載入] 按鈕新增合成，如下圖所示。