有合并单元格的多张表，怎么合并到一张表上

要将多张带有合并单元格的表合并到一张表上，您可以按照以下步骤进行操作：

1. 创建一个新的工作表作为合并结果。

2. 循环遍历每个源工作表，复制其内容到合并结果工作表。

3. 在复制过程中，检查每个合并单元格，并将其展开为相应的单元格。

下面是一个示例的 VBA 代码，它可以帮助您实现这个功能：

Sub 合并多张表到一张表()
    Dim DestWS As Worksheet
    Dim SourceWS As Worksheet
    Dim LastRow As Long
    Dim LastColumn As Long
    Dim RangeToCopy As Range
    Dim MergedArea As Range
    
    '设置合并后的目标工作表
    Set DestWS = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    DestWS.Name = "合并结果"
    
    '关闭屏幕更新，加快处理速度
    Application.ScreenUpdating = False
    
    '循环遍历每个源工作表
    For Each SourceWS In ThisWorkbook.Sheets
        '跳过目标工作表和合并结果工作表
        If SourceWS.Name <> DestWS.Name Then
            With SourceWS.UsedRange
                '复制源工作表的内容到合并结果工作表
                .Copy Destination:=DestWS.Cells(DestWS.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
                
                '处理合并单元格
                For Each MergedArea In .MergeCells.Areas
                    '确定合并区域的范围
                    Set RangeToCopy = MergedArea
                    LastRow = DestWS.Cells(DestWS.Rows.Count, 1).End(xlUp).Row + 1
                    LastColumn = DestWS.Cells(LastRow, DestWS.Columns.Count).End(xlToLeft).Column + 1
                    
                    '展开合并单元格并复制到合并结果工作表
                    RangeToCopy.Copy Destination:=DestWS.Cells(LastRow, LastColumn)
                    
                    '取消合并单元格，并清除格式
                    RangeToCopy.MergeCells = False
                    DestWS.Cells(LastRow, LastColumn).ClearFormats
                Next MergedArea
            End With
        End If
    Next SourceWS
    
    '恢复屏幕更新，并选中合并结果工作表
    Application.ScreenUpdating = True
    DestWS.Select
End Sub

请将此代码复制到 VBA 编辑器中的模块中，并运行它即可实现将多张带有合并单元格的表合并到一张表上。在运行之前，请确保您保存了所有要合并的源工作表。

希望对您有所帮助！如果您有其他问题，请随时提问。