如果C列数据有重复，则在对应的D列返回“重复”

浏阳河啊啊啊

如图
如果C列数据有重复，则在对应的D列返回“重复”

microyip

用字典进行数量统计，当大于1的都列出来，就是你需要的结果了

浏阳河啊啊啊

microyip 发表于 2018-8-21 17:31
用字典进行数量统计，当大于1的都列出来，就是你需要的结果了

老师，我新手不会...求贴出代码

microyip

浏阳河啊啊啊 发表于 2018-8-21 17:33
老师，我新手不会...求贴出代码

可以到论坛里搜索一下帖子，很多例子可以参考学习

lsc900707

你不会附件都要别人做好吧？

浏阳河啊啊啊

抱歉，此为附件

浏阳河啊啊啊

lsc900707 发表于 2018-8-21 17:38
你不会附件都要别人做好吧？

请看楼上，我搜了很多帖子，到后来复制到我的表格里，发觉不会改.....

jy03342543

Sub test()
Arr = Range("C2:D" & Cells(Rows.Count, "C").End(xlUp).Row)
Set D = CreateObject("scripting.dictionary")
    For I = 1 To UBound(Arr)
        If Not D.exists(Arr(I, 1)) Then
                    D(Arr(I, 1)) = ""
        Else
             Arr(I, 2) = "重复"
        End If
    Next
    Range("C2").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End Sub

浏阳河啊啊啊

jy03342543 发表于 2018-8-21 17:47
Sub test()
Arr = Range("C2:D" & Cells(Rows.Count, "C").End(xlUp).Row)
Set D = CreateObject("script ...

试了一下，如果后面空了一行，后面的空行也会显示“重复”。能否去除空行这个条件

jy03342543

浏阳河啊啊啊 发表于 2018-8-21 17:53
试了一下，如果后面空了一行，后面的空行也会显示“重复”。能否去除空行这个条件

我要下班了明天补上