VBA 数据统计

langzizbz

sheet1上有一统计表为  A列为 物品名 假设有100行，B列为 借用人名 C列为 借出数量，D列为 借用人名 E列为 借出数量，以此类推 到N列


假设有的物品有40人借用，有的物品没人借用


我想在sheet2 上统计出 借出物品数量最多的  名称及数量  依次排列

请大神能够给个VBA代码
我整了半天 没整出来~~

liulang0808

给一点操作上的处理建议，先按照物品名排序，然后分类汇总，结果处理后，再排序看看吧vba的话，一般考虑字典汇总，然后排序即可

langzizbz

liulang0808 发表于 2020-2-18 15:00
给一点操作上的处理建议，先按照物品名排序，然后分类汇总，结果处理后，再排序看看吧vba的话，一般考虑字 ...

非常感谢回复，我也是最近刚开始学，字典汇总还不是很明白，刚才查了半天
添付了文件还请帮忙看一下
不胜感激，跪拜

liulang0808

1. Sub 矩形圆角1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     r = 0
   
4.     arr = [g1].CurrentRegion
   
5.     For j = 5 To UBound(arr)
   
6.         For i = 8 To UBound(arr, 2) Step 5
   
7.             If d.exists(arr(j, 2) & arr(j, 3)) Then
   
8.                 arr(d(arr(j, 2) & arr(j, 3)), 3) = arr(j, i) + arr(d(arr(j, 2) & arr(j, 3)), 3)
   
9.             Else
   
10.                 r = r + 1
    
11.                 d(arr(j, 2) & arr(j, 3)) = r
    
12.                 arr(r, 1) = arr(j, 2)
    
13.                 arr(r, 2) = arr(j, 3)
    
14.                 arr(r, 3) = arr(j, i)
    
15.             End If
    
16.         Next i
    
17.     Next j
    
18.     [a6].Resize(r, 3) = arr
    
19. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

978884906

水一个支持一下

langzizbz

liulang0808 发表于 2020-2-18 18:11
附件内容供参考。。。。。。

非常感谢，今早才登陆过来看看，研究了老一会，发现字典汇总好难啊，没看懂~
我得找些资料再学习一下了~~

不好意思啊，我还能不能再提个请求，就是那些使用量为0的数据不要统计，怎么弄啊？
我改了半天也没弄好

langzizbz

978884906 发表于 2020-2-18 18:30
水一个支持一下

么么哒~水多不打滑~

liulang0808

在 If d.exists(arr(j, 2) & arr(j, 3)) Then 之前增加一个if语句过滤是0的

langzizbz

liulang0808 发表于 2020-2-19 11:47
在 If d.exists(arr(j, 2) & arr(j, 3)) Then 之前增加一个if语句过滤是0的

说来惭愧，我就想想加这个if句的，但没写出来
还请麻烦一下了，，跪谢~~~