
首先使用PowerQuery合并多個工作簿,選擇文件夾后通過轉(zhuǎn)換器加載數(shù)據(jù)并組合,最后關(guān)閉上載;其次可用VBA宏代碼批量處理,修改路徑后運行實現(xiàn)自動化追加;最后還可采用模板+數(shù)據(jù)導入方式,確保結(jié)構(gòu)一致后通過追加查詢集中數(shù)據(jù)。
如果您需要將一個文件夾中多個Excel工作簿中的數(shù)據(jù)匯總到一個表格中,手動復制粘貼不僅耗時還容易出錯。通過自動化方式可以高效完成數(shù)據(jù)整合。以下是幾種實現(xiàn)該目標的方法。
本文運行環(huán)境:聯(lián)想ThinkPadX1Carbon,Windows11
一、使用PowerQuery合并多個工作簿
PowerQuery是Excel內(nèi)置的強大數(shù)據(jù)處理工具,能夠從多個文件源提取并合并數(shù)據(jù),適合非編程用戶操作。
1、打開Excel,進入“數(shù)據(jù)”選項卡,點擊“獲取數(shù)據(jù)”→“從文件”→“從文件夾”。
2、在彈出的窗口中選擇包含所有工作簿的目標文件夾,點擊“確定”。
3、系統(tǒng)會列出該文件夾下的所有文件,找到代表Excel文件的條目,在“內(nèi)容”列中點擊任意Excel文件右側(cè)的“轉(zhuǎn)到轉(zhuǎn)換器”圖標。
4、在PowerQuery器中,選擇需要合并的工作表(通常為第一個工作表),勾選“使用第一行作為標題”。
5、點擊“組合”按鈕,在彈出的選項中選擇“合并和加載”。
6、在新窗口中確認工作表名稱一致后,點擊“確定”,系統(tǒng)將自動讀取所有工作簿中的指定工作表數(shù)據(jù)。
7、點擊“關(guān)閉并上載”,所有數(shù)據(jù)將被合并到一個新的工作表中。
二、使用VBA宏代碼批量合并
VBA適用于熟悉編程或需要頻繁執(zhí)行合并任務的用戶,可自定義合并邏輯,靈活性高。
1、打開Excel,按Alt+F11進入VBA器。
2、在左側(cè)項目窗口中右鍵點擊“插入”→“模塊”。
3、將以下代碼粘貼到模塊中,并根據(jù)實際情況修改文件夾路徑和工作表名稱:
確保文件夾路徑正確且所有工作簿處于關(guān)閉狀態(tài)
SubConsolidateWorkbooks()
???DimFolderPathAsString,FileNameAsString
???DimwbTargetAsWorkbook,wbSourceAsWorkbook
???SetwbTarget=ThisWorkbook
???FolderPath="C:YourFolder"'修改為此實際路徑
???FileName=Dir(FolderPath&"*.xlsx")
???DoWhileFileName""
??????IfwbTarget.NameFileNameThen
?????????SetwbSource=Workbooks.Open(FolderPath&FileName)
?????????wbSource.Sheets(1).UsedRange.CopywbTarget.Sheets(1).Cells(Rows.Count,1).End(xlUp).Offset(1,0)
?????????wbSource.CloseFalse
??????EndIf
??????FileName=Dir
???Loop
EndSub
4、修改FolderPath變量值為實際文件夾路徑。
5、按F5運行宏,所有工作簿數(shù)據(jù)將追加至當前工作表。
三、使用MicrosoftExcel的“模板+數(shù)據(jù)導入”功能
此方法適用于各工作簿結(jié)構(gòu)完全一致的情況,通過標準化流程導入數(shù)據(jù)。
1、創(chuàng)建一個標準模板工作簿,定義好字段列名和格式。
2、將所有待合并的工作簿按照此模板格式保存。
3、在目標工作簿中,依次點擊“數(shù)據(jù)”→“獲取數(shù)據(jù)”→“自工作簿”。
4、選擇其中一個源工作簿,連接到其工作表。
5、在查詢設置中啟用“追加查詢”功能,重復添加其余工作簿的數(shù)據(jù)。
6、刷新查詢后,所有符合模板結(jié)構(gòu)的數(shù)據(jù)將被集中顯示。
所有源文件必須與模板保持相同的列順序和名稱
以上就是Excel怎么把一個文件夾里所有工作簿的數(shù)據(jù)合并到一個表_Excel文件夾內(nèi)所有工作簿數(shù)據(jù)合并方法的詳細內(nèi)容,!

