vba 归类数据分组处理

F1623060

1:M2，填写需要查找的数据

2.D2通过M栏填写的数据，从AB栏归类匹配要求的数据

wdx223

1. Sub test()
   
2. Dim dic, data, cc, i&, d, arr(), k&, tmp, j&
   
3. 
   
4. With ThisWorkbook.Worksheets("Sheet1")
   
5.     data = .[A1:B16]
   
6.     cc = .[M1:M4]
   
7. End With
   
8. Set dic = CreateObject("Scripting.Dictionary")
   
9. For i = 2 To UBound(data)
   
10.     If data(i, 1) <> "" Then
    
11.         If dic(data(i, 1) & "") = "" Then
    
12.             dic(data(i, 1) & "") = data(i, 2)
    
13.         Else
    
14.             dic(data(i, 1) & "") = dic(data(i, 1) & "") & "|" & data(i, 2)
    
15.         End If
    
16.     End If
    
17. Next i
    
18. 
    
19. For Each d In dic.keys
    
20.     Call dg(d, dic, "")
    
21. Next d
    
22. 
    
23. For i = 2 To UBound(cc)
    
24.     If cc(i, 1) <> "" Then
    
25.         k = k + 1
    
26.         ReDim Preserve arr(1 To 3, 1 To k)
    
27.         arr(1, k) = cc(i, 1)
    
28.         If dic.exists(cc(i, 1) & "") Then
    
29.             tmp = Split(dic(cc(i, 1) & ""), "|")
    
30.             arr(2, k) = UBound(tmp) + 1
    
31.             arr(3, k) = tmp(0)
    
32.             For j = 1 To UBound(tmp)
    
33.                 k = k + 1
    
34.                 ReDim Preserve arr(1 To 3, 1 To k)
    
35.                 arr(3, k) = tmp(j)
    
36.             Next j
    
37.         End If
    
38.     End If
    
39. Next i
    
40. With ThisWorkbook.Worksheets("Sheet1")
    
41.     .[R2].Resize(k, 3) = Application.Transpose(arr)
    
42. End With
    
43. End Sub
    
44. Sub dg(x, dic, ss)
    
45. Dim tmp, i&
    
46. tmp = Split(dic(x), "|")
    
47. For i = 0 To UBound(tmp)
    
48.     If InStr(ss, tmp(i)) = 0 Then
    
49.         If ss = "" Then ss = tmp(i) Else ss = ss & tmp(i)
    
50.         If dic.exists(tmp(i)) Then
    
51.             dic(x) = dic(x) & "|" & dic(tmp(i))
    
52.             Call dg(x, dic, ss)
    
53.         End If
    
54.     End If
    
55. Next i
    
56. End Sub

复制代码

F1623060

wdx223 发表于 2018-9-5 11:30

谢谢大神，昨天忙其他的没看到，我之前是用的全部是for来处理的，但数据多了处理速度比较慢，我先看看，数组的我不是很懂，有不明白的在请教