VBA代码调试

heftyguy

大灰狼1976 发表于 2020-1-8 15:29
尽量保持原貌修改。

WorksheetFunction.CountIf(Range("B2", "B" & CStr(m) - 1), Range("B" & CStr(m)))
这里为什么减一，想着应该不减一才正确啊？，我没想到这一步

大灰狼1976

我把你后面的Count结果减1放到了判断行减1，因为Count结果减1这个处理，在没有匹配到相同内容时，会变成把前面的计算结果减去1。
还有你的 "B" & CStr(m) 没有套range()，工作表函数会把它当作一个字符串条件来处理，而不是一个单元格对象。

heftyguy

大灰狼1976 发表于 2020-1-8 16:22
我把你后面的Count结果减1放到了判断行减1，因为Count结果减1这个处理，在没有匹配到相同内容时，会变成把 ...

大灰狼1976

不好意思，上面的说明中，上半部分的说明是错误的，你原来的方法也是正确的，因为你把当前单元格既作为检索条件，同时也是检索对象，所以不存在countif匹配不到值的情况，也就是说count结果至少是1，不会出现我所说的问，你可以按自己原来的思路改回去测试一下，多修改多测试多动手总归是有好处的，只要记得经常保存一下。

heftyguy