查询重复次数

lrh788

请各位大神用代码表达，如果没有重复，就在d列显示"唯一"。当出现a、b、c列重复数据时，从第一个起，在d列显示“重复0次、重复1次………依此类推……

fxl447098457

=TEXT(COUNTIFS(A$3:A3,A3,B$3:B3,B3,C$3:C3,C3)-1,"重复0次;;")

ɑ。凱

1. Sub test()
   
2. Dim d, lr&, i&, j&, drr, brr, r&
   
3. With ThisWorkbook.Sheets("Sheet1")
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. lr = .Range("A65536").End(xlUp).Row
   
6. drr = .Range("A3:C" & lr)
   
7. ReDim brr(1 To 65536, 1 To 1)
   
8. For i = 1 To UBound(drr)
   
9.     r = r + 1
   
10.     Sr = drr(i, 1) & drr(i, 2) & drr(i, 3)
    
11.     If d.exists(Sr) Then
    
12.         brr(r, 1) = "重复" & d(Sr) & "次"
    
13.         d(Sr) = d(Sr) + 1
    
14.     Else
    
15.         d(Sr) = d(Sr) + 1
    
16.     End If
    
17. Next
    
18. .Range("D3:D65536").Clear
    
19. .Range("D3").Resize(r, 1) = brr
    
20. End With
    
21. End Sub
    

复制代码

lrh788

fxl447098457 发表于 2018-5-24 19:53
=TEXT(COUNTIFS(A$3:A3,A3,B$3:B3,B3,C$3:C3,C3)-1,"重复0次;;")

谢谢，公式符合要求！！数据多时运行较慢，能用代码更好

zhangzhang

详见附件。。。。。。。。。。。。。。。

chentonny

这就是你想要的效果吧

lrh788

chentonny 发表于 2018-5-24 20:40
这就是你想要的效果吧

你的代码结果有点问题，
TV        11        TV11       
TV        11        TV11        1
TV        11        TV11        2
TV        11        TV11        3
TV        12        TV12       
TV        13        TV13       
AC        1        AC1       
AC        2        AC2       
AC        3        AC3       
TV        13        TV13        4

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, dic, i, t
  Set dic = CreateObject("scripting.dictionary")
  arr = Range("a3:c" & Cells(Rows.Count, "a").End(xlUp).Row)
  For i = 1 To UBound(arr, 1)
    t = arr(i, 1) & arr(i, 2) & arr(i, 3)
    dic(t) = dic(t) + 1
    arr(i, 1) = IIf(dic(t) > 1, Format(dic(t) - 1, "重复0次"), vbNullString)
  Next
  [e3].Resize(UBound(arr, 1)) = arr '作比较用，输出位置自己修改
End Sub

lrh788

一把小刀闯天下 发表于 2018-5-24 21:26
Option Explicit

Sub test()

代码简短实用！！！

lrh788

从代码运行时间看，在70万行数据表中比对，3楼67秒多，5楼49秒多，8楼54秒多。