从你的描述和代码来看，问题出在两次表格合并操作之间的Selection对象状态没有正确重置，导致第二次查找定位失败，进而访问不存在的单元格抛出错误。

核心原因分析 #

当第一个表格合并完成后，Selection对象仍然停留在第一个表格的位置。此时执行第二次Selection.Find.Execute时，可能没有成功定位到第二个表格的"Unique String 2"（比如查找从当前Selection位置开始，而目标字符串在文档前面，或者查找因为格式问题匹配失败）。这种情况下，后续代码会错误地在第一个表格里尝试访问第二个表格的行/列索引，自然会抛出"The requested member of the collection does not exist"的错误。

另外，你的代码没有检查Find.Execute的返回结果——如果查找失败，代码仍然会执行表格合并逻辑，这也是错误的根源之一。

修复后的代码 #

我把你的代码改成了更稳定的Range对象操作（代替不可靠的Selection），同时添加了查找结果的校验：

Sub MergeMultipleTables()
    Dim targetRange As Range
    
    ' 处理第一个表格
    Set targetRange = ActiveDocument.Content
    With targetRange.Find
        .ClearFormatting
        .Text = "Unique String 1"
        .Forward = True
        .Wrap = wdFindStop ' 找到第一个匹配后停止，避免循环查找
        .MatchFormat = False ' 忽略格式，确保字符串匹配准确
        If .Execute Then
            ' 确认找到的内容在表格内
            If targetRange.Information(wdWithInTable) Then
                With targetRange.Tables(1)
                    .Cell(Row:=2, Column:=1).Merge MergeTo:=.Cell(Row:=5, Column:=1)
                    .Cell(Row:=6, Column:=1).Merge MergeTo:=.Cell(Row:=7, Column:=1)
                    .Cell(Row:=8, Column:=1).Merge MergeTo:=.Cell(Row:=10, Column:=1)
                    .Cell(Row:=12, Column:=1).Merge MergeTo:=.Cell(Row:=15, Column:=1)
                    .Cell(Row:=16, Column:=1).Merge MergeTo:=.Cell(Row:=18, Column:=1)
                End With
            End If
        Else
            MsgBox "未找到第一个表格的标识字符串：Unique String 1"
        End If
    End With
    
    ' 处理第二个表格
    Set targetRange = ActiveDocument.Content
    With targetRange.Find
        .ClearFormatting
        .Text = "Unique String 2"
        .Forward = True
        .Wrap = wdFindStop
        .MatchFormat = False
        If .Execute Then
            If targetRange.Information(wdWithInTable) Then
                With targetRange.Tables(1)
                    ' 第一组跨行合并
                    .Cell(Row:=2, Column:=1).Merge MergeTo:=.Cell(Row:=3, Column:=1)
                    .Cell(Row:=2, Column:=3).Merge MergeTo:=.Cell(Row:=3, Column:=3)
                    .Cell(Row:=2, Column:=4).Merge MergeTo:=.Cell(Row:=3, Column:=4)
                    .Cell(Row:=2, Column:=5).Merge MergeTo:=.Cell(Row:=3, Column:=5)
                    ' 第二组跨行合并
                    .Cell(Row:=4, Column:=1).Merge MergeTo:=.Cell(Row:=5, Column:=1)
                    .Cell(Row:=4, Column:=3).Merge MergeTo:=.Cell(Row:=5, Column:=3)
                    .Cell(Row:=4, Column:=4).Merge MergeTo:=.Cell(Row:=5, Column:=4)
                    .Cell(Row:=4, Column:=5).Merge MergeTo:=.Cell(Row:=5, Column:=5)
                    ' 更多合并操作可以在这里添加
                End With
            End If
        Else
            MsgBox "未找到第二个表格的标识字符串：Unique String 2"
        End If
    End With
End Sub

关键改进点 #

1. 用Range代替Selection：Range对象是独立的，每次处理新表格时都从整个文档开头开始查找，不会受之前操作的位置影响，稳定性远高于Selection。
2. 添加查找结果校验：通过If .Execute Then判断是否成功找到目标字符串，避免在错误位置执行合并逻辑。
3. 配置查找参数：添加.Wrap = wdFindStop防止查找循环，.MatchFormat = False避免格式干扰导致匹配失败。

额外排查建议 #

如果修复后仍然有问题，可以检查以下两点：

• 确认第二个表格的实际行号：有时候表格存在隐藏行或预合并的单元格，导致视觉行号和代码中的行号不一致，可以通过.Rows.Count打印表格总行数来验证。
• 确认"Unique String 2"的准确性：检查字符串是否有空格、换行或隐藏格式，确保和代码中的文本完全一致。

内容的提问来源于stack exchange，提问作者Aaron