如何检查单元格是否存在于不同工作表的范围内，然后引用它

Question

我想要做的就是检查工作表“上传”中的名称（单元格 B2）是否在 A 列的工作表“数据”中，如果是，则返回一条消息说“名称已经存在”。 理想情况下，我希望宏将我带到名称所在的行。 任何帮助，将不胜感激。 我试过其他线程，我的代码就失败了。 因此，您能否添加一个部分，一旦找到“数据”表中是否存在重复项，它就会将我带入“数据”表并找到它。

Function InRange(Range1 As Range, Range2 As Range) As Boolean
    ' returns True if Range1 is within Range2
    InRange = Not (Application.Intersect(Range1, Range2) Is Nothing)
End Function


Sub TestInRange()

Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Upload")
Set pasteSheet = Worksheets("Data")

    If InRange(copySheet.Range("B2"), pasteSheet.Range("A2:A300")) Then
        ' code to handle that the cell is within the right range
        MsgBox "Name exists"
    Else
        ' code to handle that the cell is not within the right range
        MsgBox "Name does not exist"
    End If
End Sub

Answer 1

Sub test()

With Worksheets("Data").Range("a1:a500")
    Set c = .Find(Worksheets("Upload").Range("B2"), LookIn:=xlValues)
    If Not c Is Nothing Then
        MsgBox ("Name Exists")
            Else
        ' code to handle that the active cell is not within the right range
        MsgBox "Name does not exist"
    End If

    End With

End Sub

其实很简单