2003版Excel多个表格合并成一个的实用技巧

前言

尽管Office 2003已是较老版本，但仍有部分用户因软硬件兼容性或工作习惯而继续使用。面对多个分散的表格，如何快速合并成一个，是许多用户常遇到的问题。本文将从简单到复杂，介绍三种适用于Excel 2003的合并方法。

方法一：手动复制粘贴

适用于：少量工作表或数据量不大。

1. 打开包含多个工作表的工作簿。
2. 在目标工作表（如Sheet1）中，点击要粘贴区域的起始单元格。
3. 切换到源工作表，选中要复制的数据区域，按Ctrl+C复制。
4. 回到目标工作表，按Ctrl+V粘贴。
5. 重复上述步骤，将其他工作表数据依次粘贴到下方或相邻区域。

注意：确保各表格数据结构一致，否则合并后需手动调整列对应关系。

方法二：使用数据透视表合并多区域

适用于：同一工作簿内多个结构相同的列表。

1. 添加数据透视表：点击菜单栏「数据」→「数据透视表和数据透视图」，进入向导。
2. 在第一步选择「多重合并计算数据区域」，点击「下一步」。
3. 选择「创建单页字段」，点击「下一步」。
4. 在「选定区域」框中，依次添加每个工作表的数据区域（如Sheet1!$A$1:$C$100），每添加一个点击「添加」。
5. 点击「下一步」，选择新建工作表或现有工作表，点击「完成」。
6. 生成的数据透视表默认按行、列汇总，可通过拖拽字段得到合并后的列表视图。

注意：该方法会将数据按行标签去重并汇总数值，若需保留原始明细，请使用方法一或三。

方法三：使用VBA宏自动化合并

适用于：大量工作表或需频繁合并的场景。

Sub MergeAllSheets()
    Dim ws As Worksheet
    Dim destRow As Long
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Sheets("目标工作表")
    destRow = 1
    
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "目标工作表" Then
            lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
            ws.Range("A1").Resize(lastRow, ws.UsedRange.Columns.Count).Copy _
                ws.Parent.Sheets("目标工作表").Cells(destRow, 1)
            destRow = ws.Parent.Sheets("目标工作表").Cells(ws.Parent.Sheets("目标工作表").Rows.Count, 1).End(xlUp).Row + 1
        End If
    Next ws
End Sub

1. 按Alt+F11打开VBA编辑器。
2. 插入模块，粘贴上述代码（修改工作表名称为你的目标表名）。
3. 关闭编辑器，按Alt+F8，选择宏「MergeAllSheets」并运行。

注意：宏会拼接所有非目标工作表的数据到目标工作表，请提前备份数据。

总结

以上三种方法可根据实际需求选择：手动法直观但耗时；数据透视表法适合创建汇总报告；VBA宏最为高效，适合自动化处理。掌握这些技巧，即使在Excel 2003中也能轻松完成表格合并任务。