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

Question

假设我在 Sheet1.Range("A1") 中有这个值“ABC123”

我想在 Sheet2.Range("A1:A10")//或列中搜索/匹配这个值

If the value is found
      //msgbox "Found"
else
     //msgbox "Not found"
end if

Answer 1

尝试这个:

Sub foo()
    Dim t As Long
        On Error Resume Next
        t = Application.WorksheetFunction.Match(Worksheets("Sheet1").Range("A1"), Worksheets("Sheet2").Range("A:A"), 0)
        On Error GoTo 0
        If t > 0 Then
            MsgBox "Found"
        Else
            MsgBox "Not found"
        End If
End Sub