VBA用于检查一个工作表中的值是否在另一个工作表中找到

Sub CheckValues()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim valueToFind As Variant
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要检查的工作表
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 设置要查找的值
    valueToFind = ws1.Range("A1").Value
    
    ' 在第二个工作表中查找值
    Set rng = ws2.Range("A1:A10")
    Set cell = rng.Find(What:=valueToFind, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 检查是否找到值
    If Not cell Is Nothing Then
        MsgBox "值找到在单元格 " & cell.Address
    Else
        MsgBox "值未找到"
    End If
End Sub