求助，如何能将多个内容汇总在同一单元格里，且列出大值

zhaogang1960

请看附件
2.rar (832.47 KB, 下载次数: 25)

2014-1-28 21:40 上传

点击文件名下载附件

kisses88

zhaogang1960 发表于 2014-1-28 21:36
如果你认可一个Client合计为0，可以加一个判断，不加百分数

现在可以了。真的非常感谢！！

yjh_27

参见附件。

kisses88

yjh_27 发表于 2014-1-28 21:52
参见附件。

亲，感谢哦！

grf1973

昨天做了一大半，今天完成了，干脆也上传吧。

1. Sub tt()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Set d1 = CreateObject("scripting.dictionary")
   
4.     arr = [a1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         clt = arr(i, 1)  'client
   
7.         cltype = arr(i, 1) & "," & arr(i, 2)   'client+type
   
8.         d(clt) = d(clt) + arr(i, 3)    '字典d保存client的求和
   
9.         d1(cltype) = d1(cltype) + arr(i, 3)     '字典d1保存client+type的求和
   
10.     Next
    
11.     d1k = d1.keys: d1t = d1.items
    
12.     ReDim brr(0 To UBound(d1t), 1 To 3)     '数组brr：client  type   占比
    
13.     For i = 0 To UBound(d1t)
    
14.         crr = Split(d1k(i), ",")
    
15.         clt = crr(0): xtype = crr(1)
    
16.         brr(i, 1) = clt
    
17.         brr(i, 2) = xtype
    
18.         If d(clt) > 0 Then brr(i, 3) = d1t(i) / d(clt)
    
19.     Next
    
20.     d.RemoveAll: d1.RemoveAll
    
21.    
    
22.     For i = 0 To UBound(brr)        '在数组Brr中找到各client的最大值,存入字典d
    
23.         clt = brr(i, 1)
    
24.         d(clt) = IIf(d(clt) < brr(i, 3), brr(i, 3), d(clt))
    
25.     Next
    
26.     For i = 0 To UBound(brr)        '如果brr中各行比例=最大值，显示为百分比置前，否则置后，存入字典d1
    
27.         clt = brr(i, 1)
    
28.         If d(clt) = brr(i, 3) Then
    
29.             d1(clt) = brr(i, 2) & " " & Format(brr(i, 3), "0%") & Chr(10) & d1(clt)
    
30.         Else
    
31.             d1(clt) = d1(clt) & "/" & brr(i, 2)
    
32.         End If
    
33.     Next
    
34.    
    
35.     [k1].Resize(d1.Count, 1) = Application.Transpose(d1.keys)
    
36.     [L1].Resize(d1.Count, 1) = Application.Transpose(d1.items)
    
37. End Sub
    

复制代码

kisses88

grf1973 发表于 2014-1-29 09:28
昨天做了一大半，今天完成了，干脆也上传吧。

谢谢你！EXCELHOME真是高手如云。我也要好好学习一下VBA才行~~哈哈