基于单元格值设置合并范围：现有VBA代码问题修正问询

需要在工作表第一行中，找到所有值匹配Attach*的连续单元格，将这些单元格合并。现有代码存在两个问题：

• 仅找到单个Attach*单元格时，会错误合并右侧所有空白单元格；
• 存在多个Attach*单元格但右侧有非空白单元格时，合并范围错误。

Sub Set_range_depends_on_values()

    Dim ws As Worksheet:  Set ws = ActiveSheet
    
    Dim rngStart As Range
    
    Set rngStart = ws.Rows(1).Find(What:="Attach*", After:=Range("A1"), _
              LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
              SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
              
    If rngStart Is Nothing Then MsgBox "No cells with value Attach*": Exit Sub
              
    Set rngStart = ws.Range(rngStart, rngStart.End(xlToRight))
    
    rngStart.Merge
    
    rngStart.Select   'just to see the result

End Sub

Sub Merge_Continuous_Attach_Cells()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim firstAttach As Range
    Set firstAttach = ws.Rows(1).Find(What:="Attach*", After:=ws.Range("A1"), _
                  LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
                  SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
                  
    If firstAttach Is Nothing Then
        MsgBox "未找到值匹配Attach*的单元格"
        Exit Sub
    End If
    
    Dim lastAttach As Range
    Set lastAttach = firstAttach
    
    ' 向右遍历，锁定最后一个连续的Attach*单元格
    Do While True
        ' 检查下一个单元格是否在当前行且匹配规则
        With lastAttach.Offset(0, 1)
            If .Row <> firstAttach.Row Or .Column > ws.Columns.Count Then Exit Do
            If .Value Like "Attach*" Then
                Set lastAttach = .Cells
            Else
                Exit Do
            End If
        End With
    Loop
    
    ' 执行合并
    ws.Range(firstAttach, lastAttach).Merge
    ws.Range(firstAttach, lastAttach).Select ' 可选：选中合并后的单元格查看结果
End Sub

• 替换xlPart为xlWhole：确保仅匹配值完全符合Attach*规则的单元格（若需匹配包含该字符串的内容，可改回xlPart）；
• 循环遍历右侧单元格：只保留连续的Attach*单元格，不会包含空白或非匹配内容；
• 增加边界检查：避免遍历超出当前行或工作表的列范围，防止报错。

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