用数组法和字典法找内容重复项

jjmysjg

cjc209 发表于 2023-3-20 12:40
字典法

Range("c2").Resize(10000).ClearContents
有合并单元格，怎么继续
谢谢大师

micch

有字典法去重，基本满足绝大部分使用场景了，数组法去重不会，如果是穷举比对，效率太低，没有学的意义


模拟写一下，为了学习，那就不用直接给成品了。

sub test
'''数据存入数组
ar=[a1:a??]
br=[b1;b??]
redim br( 1 to ubound(ar), 1 to 1)
for i = 1 to ubound(ar)
   x=ar(i,1)
   for each b in br''''' ar br 两列数据循环比对
         if x = b then''' 出现重复情况，提取到结果数组，标红，退出循环
             j = j +1
             cr(j,1)=x
             cells(i,1).interiorcolor=vbred'''设置红色，不建议做单元格格式处理
             exit for
         end if
   next b
next
[c1].resize(ubound(cr))=cr
end sub

lizhipei78

lizhipei78

如果数据较多，可以一次性上色，会快一点

lizhipei78

gwjkkkkk 发表于 2023-3-20 19:26
Option Explicit
Sub test1() '数组
    Dim ar, br, i&, j&

最简单的逻辑

shchint

太强大了，感谢各位老师的指导，我得尝试慢慢消化