VBA如何改错工作表分类汇总

laoau138

VBA如何改错工作表分类汇总

grf1973

1. Sub 分类()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheets(1).[a1].CurrentRegion
   
4.     ReDim brr(1 To UBound(arr), 2 To 8)
   
5.     For i = 2 To UBound(arr)
   
6.         x = arr(i, 2) & arr(i, 3) & arr(i, 4)
   
7.         If Not d.exists(x) Then
   
8.             n = n + 1
   
9.             d(x) = n
   
10.             For j = 2 To 5
    
11.                 brr(n, j) = arr(i, j)
    
12.             Next
    
13.         End If
    
14.         p = d(x)
    
15.         For j = 6 To 8
    
16.             brr(p, j) = brr(p, j) + Val(arr(i, j))
    
17.         Next
    
18.     Next
    
19.     If n > 0 Then
    
20.         With Sheets("汇总求和")
    
21.             .Rows("2:65536").ClearContents
    
22.             .[a2].Resize(n, 7) = brr
    
23.             .Select
    
24.         End With
    
25.     End If
    
26.         
    
27. End Sub
    

复制代码

laoau138

grf1973 发表于 2016-11-7 13:18

大侠如何做

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

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

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