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”这种更好,
②如果没有发现重箱号,则提示“没有发现重箱号”
哪位有时间帮忙改一下,谢谢!不要提醒我用条件格式
不管有没有重箱号,总是不断的提示,“没有发现重箱号”,这个BUG怎么改啊,谢谢,离目标很近了,