當前位置:首頁 » 表格製作 » 怎樣匯總一個工作表中多個表格
擴展閱讀
ipad可以發word文件嗎 2025-04-28 17:44:11
怎樣在表格中去掉邊框線 2025-04-28 17:41:47

怎樣匯總一個工作表中多個表格

發布時間: 2025-04-28 17:42:31

A. 如何將excel中多個不同的工作表匯總成一張總表

為了將多個Excel表格中的所有工作表匯總成一張總表,我們首先需要將所有Excel文件存放在同一個文件夾內,並在該文件夾中創建一個新的Excel文件。


隨後,我們使用Microsoft Excel打開新創建的文件,並通過右鍵點擊Sheet1,選擇「查看代碼」來進入宏計算界面。


接下來,在宏計算界面中輸入以下代碼,然後找到工具欄上的「運行」選項,點擊「運行子過程/用戶窗體」。代碼如下:


Sub合並當前目錄下所有工作簿的全部工作表()
DimMyPath,MyName,AWbName
DimWbAsWorkbook,WbNAsString
DimGAsLong
DimNumAsLong
DimBOXAsString
Application.ScreenUpdating=False
MyPath=ActiveWorkbook.Path
MyName=Dir(MyPath&""&"*.xls")
AWbName=ActiveWorkbook.Name
Num=0
DoWhileMyName≠""
IfMyName≠AWbNameThen
SetWb=Workbooks.Open(MyPath&""&MyName)
Num=Num+1
WithWorkbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)
ForG=1ToSheets.Count
Wb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row+1,1)
Next
WbN=WbN&Chr(13)&Wb.Name
Wb.CloseFalse
EndWith
EndIf
MyName=Dir
Loop
Range("B1").Select
Application.ScreenUpdating=True
MsgBox"共合並了"&Num&"個工作薄下的全部工作表。如下:"&Chr(13)&WbN,vbInformation,"提示"
EndSub


輸入完畢後,點擊「運行子過程/用戶窗體」以執行宏代碼。代碼將遍歷當前目錄下所有Excel文件,讀取每個文件中的所有工作表,並將這些工作表的內容復制到新創建的總表中。同時,代碼會在總表中記錄每個工作表的名稱。


運行完代碼後,等待大約10秒鍾,直到合並過程完成。完成後,會彈出一個消息框,顯示合並了多少個工作簿下的工作表。點擊確定後,查看合並後的數據即可。


以上步驟詳細介紹了如何將多個Excel表格中的所有工作表匯總成一張總表,具體操作可參考:如何快速把多個excel表合並成一個excel表_網路經驗

B. 怎樣將Excel表格中多個工作表的數據合並到一

把excel工作簿中多個工作表的某一列的數據都匯總到一個工作表中的具體步驟如下:

1、首先我們打開要合並計算的工作表,在該工作簿中包含有4張工作表,我們將把第2-4張工作表中的數據合並到第1張工作表中。