用VBA数组和字典 做两种分类汇总

laoau138

用VBA数组和字典   做两种分类汇总

大灰狼1976

数组方法你应该已经会了，前面类似的问题已经解决了很多。字典更不用说了。
仅给出数组方法。

1. Sub aaa()
   
2. Dim arr, brr, i&, j&, r&, s$
   
3. arr = [a1].CurrentRegion
   
4. ReDim brr(1 To UBound(arr), 1 To 2)
   
5. For i = 2 To UBound(arr)
   
6.   If arr(i, 2) <> "" Then
   
7.     r = r + 1
   
8.     brr(r, 1) = arr(i, 2)
   
9.     s = arr(i, 2)
   
10.     For j = i To UBound(arr)
    
11.       If arr(j, 2) = s Then
    
12.         brr(r, 2) = brr(r, 2) + arr(j, 3)
    
13.         arr(j, 2) = ""
    
14.       End If
    
15.     Next j
    
16.   End If
    
17. Next i
    
18. [e1].Resize(r, 2) = brr
    
19. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-6-16 14:21
数组方法你应该已经会了，前面类似的问题已经解决了很多。字典更不用说了。
仅给出数组方法。

其实我不懂字典      今天正在学

laoau138

大灰狼1976 发表于 2017-6-16 14:21
数组方法你应该已经会了，前面类似的问题已经解决了很多。字典更不用说了。
仅给出数组方法。

VBA改写两种方法    多列内容者添加背景色

http://www.excelpx.com/thread-431217-1-1.html