VBA用findnext查出指定字符

你好！使用 VBA 中的 Find 和 FindNext 方法可以查找指定的字符。以下是一个示例代码：

Sub FindNextExample()
    Dim searchText As String
    Dim searchRange As Range
    Dim firstResult As Range
    Dim currentResult As Range
    
    ' 设置要查找的字符串和查找范围
    searchText = "指定字符"
    Set searchRange = ActiveSheet.Range("A1:A10")
    
    ' 查找第一个结果
    Set firstResult = searchRange.Find(searchText)
    
    ' 如果找到了结果，则继续查找下一个结果
    If Not firstResult Is Nothing Then
        Set currentResult = firstResult
        
        Do
            ' 处理当前结果
            Debug.Print currentResult.Address
            
            ' 查找下一个结果
            Set currentResult = searchRange.FindNext(currentResult)
        Loop While Not currentResult Is Nothing And currentResult.Address <> firstResult.Address
    End If
End Sub

上述代码会在指定的范围内查找字符串 "指定字符"，然后输出每个找到的结果的地址。你可以根据自己的需要进行修改。