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

Question

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”这种更好，
②如果没有发现重箱号，则提示“没有发现重箱号”

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

Answer 1

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怎么改啊，谢谢，离目标很近了，

Answer 2

代码建议用字典。