求大神，关于前五的计算公式

守候柒年

如图，求出前五的品牌，在公式区咨询过，但是我的office是home and business 2013版本的，给出的公式貌似不存在，所以想在VBA这里也咨询一下，求版主不要删帖，谢谢。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.5
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = Range("a1:b" & r)
   
5.     For i = 2 To UBound(arr)
   
6.         s = Trim(Split(arr(i, 1), ")")(1))
   
7.         d(s) = d(s) + arr(i, 2)
   
8.     Next
   
9.     ReDim brr(1 To d.Count, 1 To 2)
   
10.     For Each k In d.keys
    
11.         m = m + 1
    
12.         brr(m, 1) = k
    
13.         brr(m, 2) = d(k)
    
14.     Next
    
15.     m = 2      '//交换列数
    
16.     c = 2      '//排序列号
    
17.     For i = UBound(brr) To 1 Step -1
    
18.         For j = 1 To i - 1
    
19.             If brr(j, c) < brr(j + 1, c) Then
    
20.                 For x = 1 To m
    
21.                     temp = brr(j, x)
    
22.                     brr(j, x) = brr(j + 1, x)     '交换位置
    
23.                     brr(j + 1, x) = temp
    
24.                 Next
    
25.             End If
    
26.         Next j
    
27.     Next i
    
28.     st = ""
    
29.     For i = 1 To 5
    
30.         st = st & brr(i, 1) & brr(i, 2) & "万元" & "，"
    
31.     Next
    
32.     [c2] = Left(st, Len(st) - 1)
    
33. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

无关岁月

副本前五统计.7z (19.14 KB, 下载次数: 4)

2024-1-5 13:52 上传

点击文件名下载附件

守候柒年

ykcbf1100 发表于 2024-1-5 11:37
附件供参考。。。

高手，谢谢，给出的数据是元，如何设置显示的是万元呢？需要把给出的数据除以10000