如何一对一标记重复项？就像找对子一样

whr596963948

不知道为什么 发表于 2019-3-12 10:17
代码没问题，演示的部分可能是我指定的宏没写好的，忽略

我运行以后怎么有好多黑框，具体情况在附件里

刀羊

whr596963948 发表于 2019-3-12 12:56
大神帮忙看下这个附件里的数据，用了你的方法为什么B列的会出错，我不知道哪里出了问题

是有问题，重新改了下：
=COUNTIF(A$1:A2,A2)<=COUNTIF(B:B,A2)
=COUNTIF(B$1:B2,B2)<=COUNTIF(A:A,B2)

whr596963948

刀羊 发表于 2019-3-12 13:19
是有问题，重新改了下：
=COUNTIF(A$1:A2,A2)

大神，还有个问题，为什么我把原公式           =COUNTIF(A$1:A2,A2)<=COUNTIF(B:B,A2)修改为=COUNTIF(A$1:A2,A2)<=COUNTIF(B2:B21,A2)就不对了，由于工作需要我不能使用整列，下面还有其他数据，但是我一改就不对，这是为什么呢？

刀羊

whr596963948 发表于 2019-3-12 18:01
大神，还有个问题，为什么我把原公式           =COUNTIF(A$1:A2,A2)

那个整列修改后的区域要用绝对引用

whr596963948

刀羊 发表于 2019-3-12 18:14
那个整列修改后的区域要用绝对引用

问题已解决，再次感谢

ligf123456

用条件格式设置。选中A、B列，单击开始-条件格式-项目选取规则-其他规则-使用公式确定要设置的单元格，公式输入为：=$A2=$B2，颜色选择为黄色即可。

whr596963948

不知道为什么 发表于 2019-3-12 10:17
代码没问题，演示的部分可能是我指定的宏没写好的，忽略

大佬，我最近有时间又试了一下你的方法，结果是对的，但是颜色可以改一下吗，麻烦看一下没有标黄的都是黑色的，看不到数字这个怎么破？

whr596963948

不知道为什么 发表于 2019-3-12 10:17
代码没问题，演示的部分可能是我指定的宏没写好的，忽略

我用的是第一个字典的代码：
Sub test() '字典
    Dim arr, dic, d
    Set dic = CreateObject("scripting.dictionary")
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    Range("a:b").Interior.Color = x1None
    For i = 2 To UBound(arr)
        dic(arr(i, 1)) = dic(arr(i, 1)) + 1
        d(arr(i, 1)) = d(arr(i, 1)) & "|" & i
    Next i
    For i = 2 To UBound(arr)
        If dic.exists(arr(i, 2)) And dic(arr(i, 2)) > 0 Then
        ms = Split(Mid(d(arr(i, 2)), 2), "|")(0)
        dic(arr(i, 2)) = dic(arr(i, 2)) - 1
        Cells(Val(ms), 1).Interior.Color = vbYellow
        Cells(i, 2).Interior.Color = vbYellow
        d(arr(i, 2)) = Replace(d(arr(i, 2)), "|" & ms, "")
    End If
Next i
End Sub