Sub FindInMergedCell()
    Dim rngMerge As Range
    Dim rngCell As Range
    Dim rngFound As Range
    Dim firstAddress As String
    
    Set rngMerge = Range("A1:A10") '假设合并的单元格范围是A1:A10
    Set rngCell = rngMerge.Cells(1) '从第一个小单元格开始查找
    
    Set rngFound = rngMerge.Find(What:="查找的值", After:=rngCell) '在第一个小单元格中查找值
    
    If Not rngFound Is Nothing Then
        firstAddress = rngFound.Address '记录第一个匹配值的地址
        
        Do
            '处理找到的匹配值
            '...
            
            Set rngFound = rngMerge.FindNext(After:=rngFound) '在下一个小单元格中查找值
        Loop While Not rngFound Is Nothing And rngFound.Address <> firstAddress '循环直到回到第一个匹配值的地址
    End If
End Sub