合并多個(gè)工作表和多個(gè)工作簿

1、通過VBA 將當(dāng)前工作簿里的多個(gè)工作表合并到一個(gè)工作表中假設(shè)你有三個(gè)工作表（分別命名為一年級(jí)，二年級(jí)和三年級(jí)），各個(gè)工作表里的數(shù)據(jù)格式和布局一樣?，F(xiàn)在你需要將這三個(gè)工作表合并到一個(gè)工作表里。見下圖：    下面的VBA 代碼能幫你把當(dāng)前工作簿里各個(gè)工作表里的數(shù)據(jù)合并到一個(gè)新工作表里。同時(shí)需要注意的是，所有工作表里的數(shù)據(jù)結(jié)構(gòu)，列標(biāo)題，以及各列排列的順序都必須一樣。操作如下：1. 按住Alt + F11鍵打開 Microsoft Visual Basic for Applications窗口。2. 點(diǎn)擊插入 >>&#

2、160;模塊，再將下面的代碼粘貼到模塊窗口里。VBA:將當(dāng)前工作簿里各個(gè)工作表里的數(shù)據(jù)合并到一個(gè)新工作表里Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J =

3、 2 To Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next End Sub3. 按F5 鍵運(yùn)行代碼。運(yùn)行后，當(dāng)前工作簿里的數(shù)據(jù)都被并合并到一個(gè)名為 Combine的

4、新 工作表中 ， 并列在所有工作表前面。注意：(1) 數(shù)據(jù)必須從單元格A1開始，否則代碼無效。(2) 所有的工作表數(shù)據(jù)必須布局一致。(3) 此代碼只能合并當(dāng)前工作簿里的工作表，如果想要合并多個(gè)工作簿里的工作表，此代碼無效。 通過Kutools For Excel 將多個(gè)工作表或工作簿合并到一個(gè)工作表里上面介紹的 VBA 代碼還是有些限制的，但 Kutools for Excel 的匯總功能可以幫你快速合并一個(gè)或多個(gè)工作簿里的工作表。Kutools for Excel：超過120個(gè)便捷工具，30天無限制免費(fèi)試用。 更多     

5、;免費(fèi)下載假設(shè)你有兩個(gè)工作簿需要合并，每張工作表里的數(shù)據(jù)結(jié)構(gòu)都不一樣，如下圖所示。在這種 情況下 ，Kutools for Excel 的匯總功能可以快速合并這些工作表。安裝Kutools for Excel 后，請(qǐng)按照下面步驟操作：1. 點(diǎn)擊企業(yè) >> 匯總，如圖：2. 在匯總工作表向?qū)Ю?，選擇復(fù)制多個(gè)工作簿中的數(shù)據(jù)到一個(gè)工作表中選項(xiàng)，如圖：3. 點(diǎn)擊下一步按鈕。在向?qū)У诙嚼锪谐隽怂写蜷_的工作簿和工作表。如果想要添加其他工作簿或者文件夾，你可以點(diǎn)擊添加按鈕插入需要合并的文件。然后指定需要合并的工作表，點(diǎn)擊  按鈕選擇需要合并的區(qū)域。（默

6、認(rèn)情況下，各個(gè)工作表的使用區(qū)域已經(jīng)被選中）如圖：4. 指定工作表和區(qū)域后，繼續(xù)點(diǎn)擊下一步按鈕。在向?qū)У谌?，根?jù)需要做如下設(shè)置，見下圖：5. 設(shè)置完畢后，點(diǎn)擊完成按鈕，開始合并工作表。會(huì)有對(duì)話框彈出詢問你是否想要保存當(dāng)前的合并方案，如圖：如果需要保存當(dāng)前方案，請(qǐng)點(diǎn)擊是，并輸入方案名稱（見下圖）。以后你想要再次使用此方案時(shí)，只需要在第二步點(diǎn)擊方案按鈕，選擇該方案名稱。如果不想保存當(dāng)前方案，請(qǐng)點(diǎn)擊否.這時(shí)所有工作簿里選中的工作表都合并到了新工作簿 的工作表中 。每個(gè)工作表的信息都添加到對(duì)應(yīng)數(shù)據(jù)的前面。如果需要進(jìn)一步了解匯總功能，請(qǐng)點(diǎn)擊 Combine multiple worksheet

7、s from workbooks into one worksheet免費(fèi)下載 Kutools for Excel Now Is Your Problem Solved?Yes, I want to be more efficiency and save time when using Excel No, the problem persists and I need further supportRecommended Productivity ToolsThe following tools will greatly save your time and effort,

8、 which one do you prefer?Office Tab: Using handy tabs in your Office, as the way of Chrome, Firefox and New Internet Explorer.Kutools for Excel: 120 powerful new functions for Excel, Increase your productivity in 5 minutes. Save two hours every day!Classic Menu for Office: Bring back

9、familiar menus to Office 2007, 2010, 2013 and 365, as if it were Office 2000 and 2003.Kutools For Excel Amazing! Increase your productivity in 5 minutes. Don't need any special skills, save two hours every day! More than 120 powerful advanced functions which designed for Excel:· Merge Cell/Rows/Columns without Losing Data.· Combine and Consolidate Multiple Sheets and Workbooks.· Compare Ranges, Copy Multiple Ranges, Convert Text to Date, Unit and Currency Conversion.· Count by C