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

2025-05-09 00:40:20

推荐回答（2个）

回答1：

查找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

回答2：

当遇到第一个错误时就报错，停止后面的检查，怎么更改