如何在excel VBA中匹配/搜索Sheet2.Range("A1:A10")中Sheet1.Range("A1")的值

Sub MatchValue()
    Dim searchValue As String
    Dim searchRange As Range
    Dim cell As Range
    
    ' 获取要搜索的值
    searchValue = Sheet1.Range("A1").Value
    
    ' 设置要搜索的范围
    Set searchRange = Sheet2.Range("A1:A10")
    
    ' 遍历搜索范围
    For Each cell In searchRange
        ' 判断是否匹配
        If cell.Value = searchValue Then
            ' 找到匹配值
            MsgBox "找到匹配值：" & cell.Value
            Exit Sub
        End If
    Next cell
    
    ' 未找到匹配值
    MsgBox "未找到匹配值"
End Sub