Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2357|回复: 9

[已解决]请求帮助解决统计的问题

[复制链接]
发表于 2017-2-4 21:51 | 显示全部楼层 |阅读模式
请求帮助解决统计的问题。我的问题在附件里面。谢谢!




                   请看附件:      问题.zip (40.64 KB, 下载次数: 15)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-2-6 10:38 | 显示全部楼层
统计结果和模拟结果略有不同。
  1. Sub 统计()
  2.     Dim wb As Workbook
  3.     Set d = CreateObject("scripting.dictionary")
  4.     Set wb = Workbooks.Open(ThisWorkbook.Path & "\工作量 .xlsx")
  5.     arr = wb.Sheets(1).Range("c1:f" & wb.Sheets(1).[e65536].End(3).Row)
  6.     wb.Close False
  7.     For i = 2 To UBound(arr)
  8.         yh = arr(i, 3)   '用户
  9.         lh = Trim(arr(i, 4))  '移动类型
  10.         x = yh & lh & "笔数": d(x) = d(x) + 1
  11.         x = yh & lh & "数量": d(x) = d(x) + Abs(arr(i, 1))
  12.     Next
  13.    
  14.     [d4:iv1000] = ""
  15.     cmax = [iv3].End(xlToLeft).Column    '当前表最大列
  16.     rmax = [c65536].End(3).Row 'C列最大行+2
  17.     arr = [a1].Resize(rmax, cmax)
  18.     For j = 8 To cmax
  19.         If arr(1, j) = "" Then arr(1, j) = arr(1, j - 1)
  20.         If arr(2, j) = "" Then arr(2, j) = arr(2, j - 1)
  21.         lh = Trim(arr(2, j)) '移动类型
  22.         For i = 4 To rmax
  23.             yh = arr(i, 3) '用户
  24.             x = yh & lh & arr(3, j)      '用户+移动类型+笔数(数量)
  25.             arr(i, j) = d(x)
  26.             x1 = yh & arr(1, j) & arr(3, j) '用户+出库(入库)+笔数(数量)
  27.             d(x1) = d(x1) + arr(i, j)
  28.         Next
  29.     Next
  30.    
  31.     For i = 4 To rmax - 2
  32.         yh = arr(i, 3) '用户
  33.         arr(i, 4) = d(yh & "入库" & "笔数")
  34.         arr(i, 5) = d(yh & "入库" & "数量")
  35.         arr(i, 6) = d(yh & "出库" & "笔数")
  36.         arr(i, 7) = d(yh & "出库" & "数量")
  37.     Next
  38.    
  39.     [a1].Resize(rmax, cmax) = arr
  40.    
  41. End Sub
复制代码

问题.rar

54.23 KB, 下载次数: 6

回复

使用道具 举报

 楼主| 发表于 2017-2-7 19:24 | 显示全部楼层
grf1973 发表于 2017-2-6 10:38
统计结果和模拟结果略有不同。

老师您好!测试了一下,有点小问题:

统计表的第31和32行在“入库合计”和“出库合计“中没有合计数。麻烦老师再看看。谢谢!
回复

使用道具 举报

发表于 2017-2-8 14:29 | 显示全部楼层
加一句就行了。

问题.rar

54.6 KB, 下载次数: 5

回复

使用道具 举报

 楼主| 发表于 2017-2-8 18:36 | 显示全部楼层
grf1973 发表于 2017-2-8 14:29
加一句就行了。

老师你好!可能我没有把问题反应清楚。我重新发了一个附件,附件里面绿底色是我另外加进去的,在“统计表”里第31和32行中的用户ZHOUY2566和DONGY350中,“入库合计”和“出库合计”没有合计数据。


                                             问题反馈附件: 问题的反馈.zip (55.84 KB, 下载次数: 3)
回复

使用道具 举报

发表于 2017-2-9 10:24 | 显示全部楼层    本楼为最佳答案   
改好了。

问题的反馈.rar

54.69 KB, 下载次数: 8

评分

参与人数 1 +1 收起 理由
liuym + 1 很给力

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2017-2-9 19:42 | 显示全部楼层

老师您好!多次麻烦您!影响了您的休息时间。谢谢您的关注。一切OK!
回复

使用道具 举报

 楼主| 发表于 2017-7-15 15:06 | 显示全部楼层

老师您好!我原来的问题是您帮助解决的,现在我对这个表格有了新的想法,希望能得到您的鼎力相助。我把对新表格的要求的附件发给您。






                           请看附件: 问题.zip (29.21 KB, 下载次数: 5)
回复

使用道具 举报

发表于 2017-7-16 20:56 | 显示全部楼层
liuym 发表于 2017-7-15 15:06
老师您好!我原来的问题是您帮助解决的,现在我对这个表格有了新的想法,希望能得到您的鼎力相助。我把对 ...

原贴下的代码无需作任何修改。第一行”出    库“中的空格去掉即可。 问题.rar (39.26 KB, 下载次数: 5)
回复

使用道具 举报

 楼主| 发表于 2017-7-16 21:41 | 显示全部楼层
grf1973 发表于 2017-7-16 20:56
原贴下的代码无需作任何修改。第一行”出    库“中的空格去掉即可。

老师您好!我重新发一个附件给您,我的想法在附件统计表里。






                       请看附件: 20170716.zip (37.99 KB, 下载次数: 3)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 20:18 , Processed in 0.746423 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表