怎么识别输入的编号与另一工作表D列中的编号是否重复

守望阿尔卑 · 发表于 2019-4-21 20:10

在sheet1中D10和D11单元格输入与sheet2中B列相同格式的编号，如输入的编号在sheet2的B列中已经存在，则消息框提示“重复”，这段代码该怎么写？

不知道为什么 · 发表于 2019-4-21 21:51

做个判断呗

719404338 · 发表于 2019-4-21 22:05

sheet2中B列装入字典，if sheet1中D10和D11单元格输入存在字典中 then........

唐朝123 · 发表于 2019-4-21 22:08

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k
If Target.Row = 10 And Target.Column = 4 Then
      k = Application.WorksheetFunction.CountIf(Sheet3.Range("b:b"), Target.Value)
      If k > 0 Then
         Target.Offset(0, 1) = "重复"
      Else
         Target.Offset(0, 1) = ""
      End If
End If
End Sub

microyip · 发表于 2019-4-22 07:46

用Range.Find函数直接搜索即可

		自动登录	找回密码
密码			免费注册

[求助] 怎么识别输入的编号与另一工作表D列中的编号是否重复

最新热点 /1