各位老师，帮忙看看两段代码能不能合起来

zhangcheng6688

老师们好：       附件的话，去重和计数分别用代码实现了，现在就是想学习一下能不能把这两段代码写在一起。代码最好保持和原来差不多，哈

sdytsxd991122

这种去重方法也能解决问题。建议用字典试一试

zhangcheng6688

sdytsxd991122 发表于 2024-1-25 13:53
这种去重方法也能解决问题。建议用字典试一试

先想学数组，然后再dictionary。

sdytsxd991122

sdytsxd991122

字典

titi012

参与一下。。。

1. Sub ttt()
   
2.     Dim Dic As Object, x&, y&, i&, Arr, Drr, Brr
   
3.     Set Dic = CreateObject("scripting.dictionary")
   
4.     Arr = Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
   
5.     Range("d8:e999").ClearContents
   
6.     Range("g8:h999").ClearContents
   
7.     For x = 1 To UBound(Arr)
   
8.         If Not Dic.exists(Arr(x, 1)) Then Set Dic(Arr(x, 1)) = CreateObject("Scripting.Dictionary")
   
9.         Dic(Arr(x, 1))(Arr(x, 2)) = 1 + Dic(Arr(x, 1))(Arr(x, 2))
   
10.     Next x
    
11.     Drr = Dic.keys
    
12.     For x = 0 To UBound(Drr)
    
13.         Cells(8 + x, 7) = Drr(x)
    
14.         Cells(8 + x, 8) = Dic(Drr(x)).Count
    
15.         Brr = Dic(Drr(x)).keys
    
16.         For y = 0 To UBound(Brr)
    
17.             i = i + 1
    
18.             Cells(i + 7, 4) = Drr(x)
    
19.             Cells(i + 7, 5) = Brr(y)
    
20.         Next y
    
21.     Next x
    
22. End Sub

复制代码

ykcbf1100

zhangcheng6688 发表于 2024-1-25 15:11
先想学数组，然后再dictionary。

数组和字典是分不开的，应该一起学。

gwjkkkkk

Option Explicit
Sub TEST9()
    Dim ar, br, i&, r&, dic As Object, vKey
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
    ar = [A1].CurrentRegion
   
    For i = 2 To UBound(ar)
        If Not dic.exists(ar(i, 1)) Then
            Set dic(ar(i, 1)) = CreateObject("Scripting.Dictionary")
        End If
        dic(ar(i, 1))(ar(i, 2)) = ""
    Next i
   
    ReDim br(1 To dic.Count, 1 To 2)
    For Each vKey In dic.keys
        r = r + 1
        br(r, 1) = vKey
        br(r, 2) = dic(vKey).Count
    Next
   
    [E1].CurrentRegion.Offset(1).Clear
    [E2].Resize(UBound(br), 2) = br
    Set dic = Nothing
    Application.ScreenUpdating = True
End Sub

gwjkkkkk

字典嵌套。。。

zhangcheng6688

gwjkkkkk 发表于 2024-1-25 19:15
Option Explicit
Sub TEST9()
    Dim ar, br, i&, r&, dic As Object, vKey

感谢老师，学习字典嵌套比较经典的例子