Excel VBA -如何在合并单元格列中.find一个值

Sub FindValueInMergedCells()
    Dim rng As Range
    Dim cell As Range
    Dim searchValue As String
    
    searchValue = "要查找的值"
    
    ' 设置要查找的范围
    Set rng = Range("A1:A10")
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 检查单元格是否是合并单元格
        If cell.MergeCells Then
            ' 检查合并单元格的第一个单元格是否包含要查找的值
            If cell.MergeArea.Cells(1, 1).Value = searchValue Then
                ' 找到了要查找的值
                MsgBox "找到了要查找的值在合并单元格 " & cell.Address
                Exit Sub
            End If
        End If
    Next cell
    
    ' 没有找到要查找的值
    MsgBox "没有找到要查找的值"
End Sub