VBA去重复的几种方法

praijna

各位老师，能否没可能只删除重复项，仍然保留空行？

山海风云轩

做好记号，学习学习

ljpmqb888

Luc0224 发表于 2022-4-24 13:53
Sub 去重()

Dim i%, j%, js%, endrow, flag As Boolean

测试了这里的代码，89楼的和这个77楼的代码非常好用，效果完美。其余的代码从时间效率上，如这里测试的一样，方法1-2效率低，数据多会非常慢，方法4新版的适用。这里的75楼的和方法3都存在一个问题，就是如果我们去重复的数据是特殊的内容，如我测试的是1-03，1-05，1-04.。。。。这样的数据，去重后格式就变化了，不是原始格式。变成时间和日期了（我的原始数字不是这个格式）。所以不实用。香川老师的代码没学会。停在stop这句就不动了。没测试明白。

daqinqin

aoe1981 发表于 2014-12-12 22:20
楼主方法三：字典去重，我不习惯这句：ra = dic(arr(ii, 1))，便改成了下面习惯的：

那对于隐藏的列表，怎么避免被放入到字典里。

大灰狼1976

aoe1981 发表于 2014-12-12 22:15
以下是楼主的方法1：感觉与我常用的数组去重是一样的（我是通过两层循环判断比较，重复的清为空值，但是我 ...

但是i没变，也没有遇空退出循环的处理，所以末尾还是多了很多无效循环。

yanglinzi

先收藏，慢慢学习