查找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
当遇到第一个错误时就报错，停止后面的检查，怎么更改
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024