查询重复次数

一把小刀闯天下

lrh788 发表于 2018-5-25 14:37
速度非常快，2秒多，只是不知 Debug.Print Timer - dt是什么意思？

没什么用，只是打印出总的处理时间。

我没想到你会拿70万条数据作测试，这里的意思还是拿你那70条数据作测试，然后跟10楼的用时作比较。

lrh788

Sub 判断重复()
  Dim arr, dic, i, s, t
  Application.ScreenUpdating = False
  t = Timer
  Set dic = CreateObject("scripting.dictionary")
  arr = Range("a1").CurrentRegion
  For i = 1 To UBound(arr, 1)
    s = arr(i, 1) & arr(i, 2) & arr(i, 3)
    dic(s) = dic(s) + 1
    arr(i, 1) = IIf(dic(s) > =1, Format(dic(s) - 1, "重复0次"), vbNullString) '=1时唯一值为"重复0次"
  Next
   [k1].Resize(UBound(arr, 1)) = arr
    Set dic = Nothing:    Erase arr
   MsgBox "判断用时：" & Format(Timer - t, "0.00") & "秒"
   Application.ScreenUpdating = True
End Sub

lrh788

如果判断结果是不重复就标注为唯一。如果判断结果为重复，就从第一个起标注重复0次第二个标重复1次，依此类推！！！请各位老师完善下代码！

lrh788

一把小刀闯天下 发表于 2018-5-25 13:02
'先对数据区进行排序，按A、B、C列键值排序
'如果顺序不能改变，等输出后再按某列进行排序进行恢复。这个 ...

一把小刀闯天下老师，我有个新要求，如果a、b、c列数据无重复时就在d列显示“唯一“；如果a、b、c列数据出现重复时，从第一个起，在d列分别显示“重复0次、重复1次、重复2次………依此类推……请完善下代码。

lrh788

如果不重复就标注为唯一。如果出现重复，第一个起标注重复0次，第二个标重复1次，……依此类推！！！

一把小刀闯天下

lrh788 发表于 2018-6-7 12:33
一把小刀闯天下老师，我有个新要求，如果a、b、c列数据无重复时就在d列显示“唯一“；如果a、b、c列数据 ...

'修改19楼代码。条件一样：A、B、C列有序，[a3]开始

Option Explicit

Sub test()
  Dim i As Long, j As Long, k As Long, n As Long, arr, dt
  Application.ScreenUpdating = False
  dt = Timer
  arr = Range("a3:c" & Cells(Rows.Count, "a").End(xlUp).Row + 1)
  ReDim brr(1 To UBound(arr, 1), 1 To 1) As String
  For i = 1 To UBound(arr, 1) - 1
    For j = i To UBound(arr, 1) - 1
      If arr(j, 1) & arr(j, 2) & arr(j, 3) <> arr(j + 1, 1) & arr(j + 1, 2) & arr(j + 1, 3) Then
        If j > i Then
          n = 0
          For k = i To j
            brr(k, 1) = "重复" & n: n = n + 1
          Next
        Else
          brr(j, 1) = "唯一"
        End If
        i = j: Exit For
      End If
  Next j, i
  [d3].Resize(UBound(brr, 1)) = brr
  Debug.Print Timer - dt
  Application.ScreenUpdating = True
End Sub

lrh788

一把小刀闯天下 发表于 2018-6-7 14:34
'修改19楼代码。条件一样：A、B、C列有序，[a3]开始

Option Explicit

老师，如果abc三列中任何一列为空，只要其他两列同时相同也可视为重复，否则，视为唯一

一把小刀闯天下

lrh788 发表于 2018-6-7 14:50
老师，如果abc三列中任何一列为空，只要其他两列同时相同也可视为重复，否则，视为唯一

假设：
第3行3列：
1，  ，3
第4行3列：
1，2，3
3、4行作为相同处理？就是同行3列中可以有单列为空，只要其它对应的2列相同即为相同？

另外还是70万条数据吗？因为有序适合对巨量数据处理。如果数据量小可以用字典来解决。

lrh788

假设：
第3行3列：
1，  ，3
第4行3列：
1，，3
3、4行作为相同处理？就是同行3列中可以有单列为空，只要其它对应的2列相同即为相同？
另外，
第6行3列：
1，2  
第10行3列：
1，2
6、10行作为相同处理？就是同行3列中可以有单列为空，只要其它对应的2列相同即为相同？
另外，
第18行3列：
    2  ，3
第30行3列：
    2  ，3
18、30行作为相同处理？就是同行3列中可以有单列为空，只要其它对应的2列相同即为相同？

lrh788

一把小刀闯天下 发表于 2018-6-7 14:58
假设：
第3行3列：
1，  ，3

老师，你的代码中，哪个语句有排序功能