如何用vba实现判断一行中的数据是否存在于另一张表格中

查找A列的数据，是否在 数据库这个表的A1：Z100这个区域存在？如果存在，就在B列显示 有

Sub 查找()
Dim I%, X, C
For I = 2 To Range("A65536").End(xlUp).Row
With Sheets("数据库").Range("a1:Z100")
Set C = .Find(Cells(I, "a"), LookIn:=xlValues)
X = C.Row
End With
If X > 0 Then
Cells(I, "b") = "有"
End If
Next
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/e7vyrryfjj73vv33ee2.html