191问答库 > VBA判断在第一列中，当前输入的单元格数据在另一列数据中是否存在，如果不存在就提示不存在

VBA判断在第一列中，当前输入的单元格数据在另一列数据中是否存在，如果不存在就提示不存在

2025-02-27 16:46:23

推荐回答（1个）

回答1：

利用workbook的SheetChange事件：
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

For Each dyg In Target

If dyg.Column <> 1 Or dyg.Count > 1 Then Exit Sub

If [b:b].Find(dyg, , , xlWhole) Is Nothing Then MsgBox "新输入值“" & dyg & "”在B列不存在!"
Next

End Sub