Excel精英培训网

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

[已解决]如何将工作表数据统计汇总到另外一个工作表?

[复制链接]
发表于 2016-4-23 14:25 | 显示全部楼层 |阅读模式
附件里有3个工作表,如何将“数据‘工作表中的数据统计汇总后将结果复制到”汇总“工作表里?
(说明:”统计“工作表的数据是通过手动筛选汇总后的数据)

统计汇总.rar (74.28 KB, 下载次数: 17)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-4-23 18:12 | 显示全部楼层    本楼为最佳答案   
  1. Sub Macro1()
  2. Dim arr, brr, crr, d, i&, j%
  3. Set d = CreateObject("scripting.dictionary")
  4. Sheet2.Activate
  5. arr = Range("a1").CurrentRegion
  6. brr = Sheets("数据").Range("a1").CurrentRegion
  7. ReDim crr(1 To UBound(arr) - 1, 1 To UBound(arr, 2) - 1)
  8. For i = 1 To UBound(brr)
  9.     For j = 2 To 5
  10.         zf = brr(i, 8) & "," & brr(1, j)
  11.         If brr(i, j) <> "" Then
  12.             d(zf) = d(zf) + 1
  13.         Else
  14.             If j = 3 Or j = 5 And brr(i, j - 1) <> "" Then
  15.                 zf = brr(i, 8) & "," & "未" & Mid(brr(1, j), 2)
  16.                 d(zf) = d(zf) + 1
  17.             End If
  18.         End If
  19.     Next
  20.     If brr(i, 6) = "1120" Then
  21.         zf = brr(i, 8) & ",分类1120"
  22.     Else
  23.         zf = brr(i, 8) & ",分类非1120"
  24.     End If
  25.     d(zf) = d(zf) + 1
  26.     If brr(i, 7) = "" Then
  27.         zf = brr(i, 8) & ",种类情况空白"
  28.     Else
  29.         zf = brr(i, 8) & ",种类情况" & brr(i, 7)
  30.     End If
  31.     d(zf) = d(zf) + 1
  32. Next
  33. For j = 2 To UBound(arr, 2)
  34.     s = 0
  35.     For i = 2 To UBound(arr) - 1
  36.         zf = arr(i, 1) & "," & arr(1, j)
  37.         If d.exists(zf) Then
  38.             crr(i - 1, j - 1) = d(zf)
  39.             s = s + d(zf)
  40.         End If
  41.     Next
  42.     crr(UBound(crr), j - 1) = s
  43. Next
  44. Range("b2").Resize(UBound(crr), UBound(crr, 2)) = crr
  45. End Sub
复制代码
回复

使用道具 举报

发表于 2016-4-23 18:14 | 显示全部楼层
………………

统计汇总.zip

193.6 KB, 下载次数: 24

回复

使用道具 举报

 楼主| 发表于 2016-4-26 23:54 | 显示全部楼层
dsmch 发表于 2016-4-23 18:14
………………

2.jpg

如图,我准备将“分类”表里再加一列分类1110,将分类1120和分类1134分别统计,在宏命令中如何修改?
回复

使用道具 举报

 楼主| 发表于 2016-4-27 08:32 | 显示全部楼层
本帖最后由 kstax 于 2016-4-27 20:16 编辑

如果按分类统计各部门数据如何编写?
统计汇总3.rar (78.43 KB, 下载次数: 4)
回复

使用道具 举报

 楼主| 发表于 2016-4-27 16:10 | 显示全部楼层
dsmch 发表于 2016-4-23 18:14
………………

五楼的数据又如何用VBA统计汇总?请大师帮忙看一下。谢谢!

点评

模拟结果,方便测试代码  发表于 2016-4-27 19:32
回复

使用道具 举报

 楼主| 发表于 2016-4-27 20:17 | 显示全部楼层
本帖最后由 kstax 于 2016-4-27 20:21 编辑
dsmch 发表于 2016-4-23 18:14
………………

五楼的附件已更新。利用“数据‘表,通过VBA在”统计’表得到如”汇总“表里的结果。请指点。谢谢!
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 23:14 , Processed in 0.795770 second(s), 16 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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