在findstring循环Excel VBA中添加msgbox

Sub FindStringLoop()
    Dim searchRange As Range
    Dim foundCell As Range
    Dim firstAddress As String
    Dim searchString As String
    
    searchString = "要查找的字符串"
    Set searchRange = Worksheets("Sheet1").Range("A1:A10") '设置要搜索的范围
    
    Set foundCell = searchRange.Find(What:=searchString, LookIn:=xlValues, LookAt:=xlWhole) '查找第一个匹配项
    
    If Not foundCell Is Nothing Then '如果找到了匹配项
        firstAddress = foundCell.Address '记录第一个匹配项的地址
        
        Do '开始循环查找
            MsgBox "找到匹配项：" & foundCell.Address '显示匹配项的地址
            
            '继续查找下一个匹配项
            Set foundCell = searchRange.FindNext(After:=foundCell)
            
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstAddress '循环直到回到第一个匹配项
    Else
        MsgBox "未找到匹配项。"
    End If
End Sub