使用查找VBA宏循环到下一个范围

Sub FindNextRange()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A1:A10") ' 设置要查找的范围
    
    For Each cell In rng
        If cell.Value = "目标值" Then ' 替换"目标值"为要查找的具体值
            ' 执行找到目标值后的操作
            ' 例如，可以在这里输出找到目标值的位置或进行其他处理
            MsgBox "找到目标值在：" & cell.Address
            Exit For ' 找到目标值后退出循环
        End If
    Next cell
End Sub

Sub FindNextRange()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A1:A10") ' 设置要查找的范围
    
    Set cell = rng.Cells(1) ' 设置初始查找位置
    
    Do While Not cell Is Nothing
        If cell.Value = "目标值" Then ' 替换"目标值"为要查找的具体值
            ' 执行找到目标值后的操作
            ' 例如，可以在这里输出找到目标值的位置或进行其他处理
            MsgBox "找到目标值在：" & cell.Address
            Exit Do ' 找到目标值后退出循环
        End If
        Set cell = rng.FindNext(cell) ' 继续查找下一个范围
    Loop
End Sub

Sub FindNextRange()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A1:A10") ' 设置要查找的范围
    
    Set cell = rng.Cells(1) ' 设置初始查找位置
    
    Do Until cell Is Nothing
        If cell.Value = "目标值" Then ' 替换"目标值"为要查找的具体值
            ' 执行找到目标值后的操作
            ' 例如，可以在这里输出找到目标值的位置或进行其他处理
            MsgBox "找到目标值在：" & cell.Address
            Exit Do ' 找到目标值后退出循环
        End If
        Set cell = rng.FindNext(cell) ' 继续查找下一个范围
    Loop
End Sub