[已解决]同列数据加和

luhua8468

表一B列相同字母后数据同列数据加和，并顺序写入表二中！

最佳答案

月排行榜 / 总排行榜

grf1973

2015-10-19 15:49

1. Sub text()
   
2.     arr = [a1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
5.     For i = 1 To UBound(arr)
   
6.         x = arr(i, 2)
   
7.         If Not d.exists(x) Then
   
8.             n = n + 1
   
9.             d(x) = n
   
10.             brr(n, 1) = n
    
11.             brr(n, 2) = x
    
12.         End If
    
13.         p = d(x)
    
14.         For j = 3 To UBound(arr, 2)
    
15.             If arr(i, j) > 0 Then brr(p, j) = brr(p, j) + arr(i, j)
    
16.         Next
    
17.     Next
    
18.     Range("h1").Resize(n, UBound(arr, 2)) = brr
    
19. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Sub text()
   
2.     arr = [a1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
5.     For i = 1 To UBound(arr)
   
6.         x = arr(i, 2)
   
7.         If Not d.exists(x) Then
   
8.             n = n + 1
   
9.             d(x) = n
   
10.             brr(n, 1) = n
    
11.             brr(n, 2) = x
    
12.         End If
    
13.         p = d(x)
    
14.         For j = 3 To UBound(arr, 2)
    
15.             If arr(i, j) > 0 Then brr(p, j) = brr(p, j) + arr(i, j)
    
16.         Next
    
17.     Next
    
18.     Range("h1").Resize(n, UBound(arr, 2)) = brr
    
19. End Sub

复制代码