当在合并的单元格中找到值时，.FindNext不会“换行”

在合并的单元格中查找值时，.FindNext方法不会跳转到下一行。.FindNext方法是Excel VBA中用于在指定区域内继续查找下一个匹配值的方法。

合并的单元格是由多个单元格合并成一个大的单元格，显示为一个单元格，但实际上仍然是由多个小单元格组成。当我们在合并的单元格中使用.Find方法查找值时，它只会在合并的单元格中找到第一个匹配值，并将该单元格作为活动单元格。但是，如果我们尝试使用.FindNext方法来继续查找下一个匹配值，它将无法在合并的单元格中找到第二个匹配值并且会报错。

这是因为.FindNext方法是基于活动单元格进行查找的，而合并的单元格只是显示为一个大单元格，实际上它是由多个小单元格组成的。因此，在合并的单元格中查找值时，.FindNext方法无法正确跳转到下一行，导致无法继续查找。

解决这个问题的方法是使用循环来遍历合并单元格的每个小单元格，并在每个小单元格中使用.Find方法查找值。这样就可以正确地找到所有匹配值。

以下是一个示例代码：

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

在这个示例代码中，我们使用了一个循环来遍历合并单元格的每个小单元格，并在每个小单元格中使用.Find方法查找值。然后，我们使用.FindNext方法来继续查找下一个匹配值，直到回到第一个匹配值的地址。

这样，我们就可以正确地在合并的单元格中找到所有匹配值，并进行相应的处理。

对于Excel VBA的详细了解和更多应用场景，可以参考腾讯云的Excel VBA相关产品和产品介绍：