Excel如何實現多行合併成一行合計？

蓝桥玄霜

请见附件。

grf1973

wei48165 发表于 2013-12-12 21:28
pd = Left(pd, 4)

大神，你这是取的定长....

1. Sub tt()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = [c1].CurrentRegion
   
4.     ReDim brr(1 To UBound(arr), 1 To 3)
   
5.     For i = 1 To UBound(arr)
   
6.         pm = arr(i, 1)
   
7.         pd = arr(i, 2)
   
8.         If InStr("RS", Right(pd, 1)) > 0 Then pd = Left(pd, Len(pd) - 1)
   
9.         If Not d.exists(pm) Then
   
10.             n = n + 1
    
11.             d(pm) = n
    
12.             brr(n, 1) = pm
    
13.         End If
    
14.         k = d(pm)
    
15.         brr(k, 3) = brr(k, 3) + arr(i, 3)
    
16.         If brr(k, 2) = "" Then brr(k, 2) = pd
    
17.         If InStr(brr(k, 2), pd) = 0 Then brr(k, 2) = brr(k, 2) & "/" & pd
    
18.     Next
    
19.     [g1].Resize(n, 3) = brr
    
20. End Sub
    

复制代码

朱胜利

呼叫GRF1973
请求帮助

LMY123

字典分类汇总，数字则累计，字符则合并