日常工作中，我们常常会碰到将多个工作表数据合并到一个工作表中的情况。对于这类情况，一般的应用场景是一个工作簿中含有多个个结构相同的工作表，需要将这些工作表合并成一个工作表，那么，我们可以使用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知识与操作技能
