日常工作中，我們常常會碰到將多個工作表數據合並到一個工作表中的情況。對于這類情況，一般的應用場景是一個工作簿中含有多個個結構相同的工作表，需要將這些工作表合並成一個工作表，那麽，我們可以使用Excel中內置的VBA來實現。
如下圖示，一個工作簿中含有6張工作表，每張工作表的表頭相同，具體的數據行不同。現需要將這6張工作表合並成一張工作表。
在Excel中，使用VBA（Visual Basic for Applications）來合並多個結構相同的工作表到一個工作表可能是一個高效的方法，當然，我們也可以用Python編程來實現。
下面是用VBA宏來實現的的詳細步驟，包括如何編寫VBA代碼來實現這一操作，以及如何處理數據不一致或重複的情況。
一、 打開Excel並啓用開發者選項
首先，打開含有需要合並工作表的Excel工作簿。如果“開發者”選項卡未顯示，請點擊“文件” > “選項” > “自定義功能區”，在右側勾選“開發者”複選框，然後點擊“確定”。
二、 插入VBA模塊
轉到“開發者”選項卡，點擊“Visual Basic”或者直接按`Alt + F11`鍵打開VBA編輯器。然後在VBA項目浏覽器中（通常位于左側），右擊工作簿名（VBAProject），選擇“插入” > “模塊”。這會創建一個新的模塊，用于編寫VBA代碼。
三、 編寫VBA代碼
在新插入的模塊中，粘貼以下VBA代碼。這段代碼定義了一個過程`MergeSheets`，它遍曆指定的工作表名稱數組，並將這些工作表的數據複制到目標工作表（在這個例子中，目標工作表名爲"CombinedSheet"）。如果目標工作表不存在，代碼會自動創建該工作表，並將其插入到所有工作表的末尾。
Sub MergeSheets() Dim wb As Workbook Dim ws As Worksheet Dim targetSheet As Worksheet Dim sheetNames() As Variant Dim i As Integer, j As Integer, lastRow As Long Set wb = ThisWorkbook ' 檢查合並後的工作表是否已存在，不存在則創建 On Error Resume Next Set targetSheet = wb.Sheets("CombinedSheet") On Error GoTo 0 If targetSheet Is Nothing Then Set targetSheet = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count)) targetSheet.Name = "CombinedSheet" Else ' 清空目標工作表內容 targetSheet.Cells.ClearContents End If ' 遍曆每個工作表並合並數據 For Each ws In ThisWorkbook.Sheets On Error Resume Next On Error GoTo 0 If Not ws Is Nothing And ws.Name <> "CombinedSheet" Then lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 獲取數據的最後一行 For j = 1 To lastRow ' 注意：這裏假設所有工作表的結構相同，從第一列開始複制 targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, ws.Columns.Count).Value = ws.Rows(j).Value Next End If Next MsgBox "工作表合並完成！", vbInformation, "合並結果"End Sub四、運行VBA宏
返回Excel界面，再次點擊“開發者”選項卡，點擊“宏”。 在彈出的“宏”對話框中，選擇`MergeSheets`，然後點擊“運行”。即可看到所有的工作表內容已合並到了同一個工作表“CombinedSheet”中了。
下圖是宏的創建與執行過程動畫圖：
但這裏要注意的是可能存在處理數據不一致或重複的情況。
在操作前要確保所有合並的工作表結構完全相同（列數、列標題等），以避免合並時出現錯誤。如果列數據類型不同（例如，某些單元格是文本而其他是數字），可能需要在合並前進行格式統一。
在上述VBA代碼中，直接複制數據默認會保留所有數據，包括重複行。若需去重，可以在複制數據到目標工作表後，添加代碼使用RemoveDuplicates方法去除重複記錄。如果重複數據需要彙總或計數，你可能需要在合並數據時增加額外邏輯，比如先檢查目標表中是否存在相同的行，再決定是跳過、累加數值或以其他方式處理。
以上步驟和代碼示例僅提供了基本框架，根據實際情況，可能需要對代碼進行適當調整。千萬記得在執行VBA代碼前備份你的工作簿，以防意外數據丟失。
我是鑒水魚老師，關注我，持續分享更多的Excel知識與操作技能
