设为首页收藏本站
开启辅助访问

Excel精英培训网

 找回密码
 注册
Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › 数据统计
数据透视表40+个常用小技巧，让你一次学会！
返回列表 发新帖
查看: 2313|回复: 5

[已解决]数据统计

[复制链接]
cyj153
发表于 2015-12-7 10:49 | 显示全部楼层 |阅读模式
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
本帖最后由 cyj153 于 2015-12-7 18:41 编辑

数据统计.zip (20.34 KB, 下载次数: 10)
excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上
发表于 2015-12-7 11:01 | 显示全部楼层
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
可以用最原始的方法，循环查找得出数据。
回复

使用道具 举报

baksy
发表于 2015-12-7 11:09 | 显示全部楼层
工作中最常用的Excel函数公式，全印在一张鼠标垫上
附件

数据统计.zip

19.89 KB, 下载次数: 4
回复

使用道具 举报

grf1973
发表于 2015-12-7 11:24 | 显示全部楼层
  1. Sub 统计()
  2.    arr = Sheets(1).Range("a1").CurrentRegion
  3.    ReDim brr(1 To UBound(arr), 1 To 9)
  4.    Set d = CreateObject("scripting.dictionary")
  5.    For i = 3 To UBound(arr)
  6.       x = arr(i, 5)  '年级key
  7.       If Len(x) Then
  8.          If Not d.exists(x) Then
  9.             n = n + 1
  10.             d(x) = n
  11.             brr(n, 1) = arr(i, 5)
  12.             brr(n, 2) = arr(i, 6)
  13.             brr(n, 3) = arr(i, 7)
  14.          End If
  15.          brr(d(x), 4) = brr(d(x), 4) + 1
  16.          x1 = x & arr(i, 26)
  17.          If Len(arr(i, 26)) Then d(x1) = d(x1) + 1
  18.       End If
  19.    Next
  20.    With Sheets("数据统计")
  21.         .[a2:g300].ClearContents
  22.         .[a2].Resize(n, 9) = brr
  23.         crr = .[a1].CurrentRegion
  24.             For j = 5 To 8
  25.                 x = Replace(crr(1, j), "人数", "")
  26.                 For i = 2 To UBound(crr)
  27.                     y = crr(i, 1) & x
  28.                     crr(i, j) = d(y)
  29.                 Next
  30.             Next
  31.         .[a1].CurrentRegion = crr
  32.     End With
  33. End Sub
复制代码

数据统计.rar

15.46 KB, 下载次数: 4
回复

使用道具 举报

cyj153
 楼主| 发表于 2015-12-7 12:39 | 显示全部楼层
grf1973 发表于 2015-12-7 11:24

老师，如果表1的Z列为空值，计算为未参加测试，如何统计。结果数据写在“数据统计”的I列。谢谢！
回复

使用道具 举报

grf1973
发表于 2015-12-7 13:39 | 显示全部楼层    本楼为最佳答案   
  1. Sub 统计()
  2.    arr = Sheets(1).Range("a1").CurrentRegion
  3.    ReDim brr(1 To UBound(arr), 1 To 9)
  4.    Set d = CreateObject("scripting.dictionary")
  5.    For i = 3 To UBound(arr)
  6.       x = arr(i, 5)  '年级key
  7.       If Len(x) Then
  8.          If Not d.exists(x) Then
  9.             n = n + 1
  10.             d(x) = n
  11.             brr(n, 1) = arr(i, 5)
  12.             brr(n, 2) = arr(i, 6)
  13.             brr(n, 3) = arr(i, 7)
  14.          End If
  15.          brr(d(x), 4) = brr(d(x), 4) + 1
  16.          If Len(arr(i, 26)) = 0 Then arr(i, 26) = "未参加测试"
  17.          x1 = x & arr(i, 26)
  18.          d(x1) = d(x1) + 1
  19.       End If
  20.    Next
  21.    With Sheets("数据统计")
  22.         .[a2:g300].ClearContents
  23.         .[a2].Resize(n, 9) = brr
  24.         crr = .[a1].CurrentRegion
  25.             For j = 5 To 9
  26.                 x = Replace(crr(1, j), "人数", "")
  27.                 For i = 2 To UBound(crr)
  28.                     y = crr(i, 1) & x
  29.                     crr(i, j) = d(y)
  30.                 Next
  31.             Next
  32.         .[a1].CurrentRegion = crr
  33.     End With
  34. End Sub
复制代码

数据统计.rar

17.23 KB, 下载次数: 12
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-4-26 23:54 , Processed in 0.379536 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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