我需要使用Excel VBA在if语句中循环索引/匹配的帮助

Sub LoopIndexMatch()
    Dim i As Integer
    Dim lastRow As Long
    Dim searchValue As String
    Dim matchFound As Boolean
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 获取数据的最后一行
    
    searchValue = "Apple" ' 要搜索的值
    
    matchFound = False ' 初始化匹配状态
    
    For i = 1 To lastRow ' 循环遍历数据
        If Cells(i, 1).Value = searchValue Then ' 如果找到匹配的值
            matchFound = True ' 设置匹配状态为True
            Exit For ' 退出循环
        End If
    Next i
    
    If matchFound Then ' 如果找到匹配的值
        MsgBox "找到匹配的值在第 " & i & " 行。" ' 弹出消息框显示匹配的行数
    Else
        MsgBox "未找到匹配的值。" ' 弹出消息框显示未找到匹配的值
    End If
End Sub