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

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

其实很简单