EXCEL VBA 判断有无重复数据,如果有,提示有几个,如果没有则提示为没有

Dim w&
For w = 4 To 1000 Step 1
If Application.CountIf(Range("A4:A1000"), Range("A" & w)) >= 2 Then
MsgBox "发现重箱号!!", 16, "系统提示": Application.Goto Range("A" & w): Exit Sub
End If
Next
这是我在网上搜到的代码,我想要改动一下:
①如果发现重箱号则提示:比如“发现3个重箱号”,如果提示“发现3个重箱号,33,95,553”这种更好,
②如果没有发现重箱号,则提示“没有发现重箱号”

哪位有时间帮忙改一下,谢谢!不要提醒我用条件格式

Dim w&
For w = 4 To 1000 Step 1
If Application.CountIf(Range("A4:A1000"), Range("A" & w))>1 Then
MsgBox "发现" & Application.CountIf(Range("A4:A1000"), Range("A" & w)) & "个重箱号!!", 16, "系统提示": Application.Goto Range("A" & w): Exit Sub
else
MsgBox "发现没有发现重箱号!"
End If
Next追问

不管有没有重箱号,总是不断的提示,“没有发现重箱号”,这个BUG怎么改啊,谢谢,离目标很近了,

温馨提示:答案为网友推荐,仅供参考
第1个回答  2019-07-06
代码建议用字典。
相似回答
大家正在搜