[已解决]数据统计

cyj153

数据统计.zip (9.34 KB, 下载次数: 14)

2017-7-18 15:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2017-7-18 16:46

1. Sub grf()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 2 To UBound(arr)
   
5.         x = arr(i, 5) & arr(i, 6) & arr(i, 7)   '号码+姓名+节次
   
6.         y = arr(i, 5) & arr(i, 6) & "合计"       '号码+姓名+合计
   
7.         If Len(arr(i, 9)) Then       '统计  号码+姓名+节次 的暂停次数，并合计
   
8.             d(x & "暂停") = d(x & "暂停") + 1
   
9.             d(y & "暂停") = d(y & "暂停") + 1
   
10.         End If
    
11.         If Len(arr(i, 10)) Then       '统计  号码+姓名+节次 的犯规次数，并合计
    
12.             d(x & "犯规") = d(x & "犯规") + 1
    
13.             d(y & "犯规") = d(y & "犯规") + 1
    
14.         End If
    
15.         If Len(arr(i, 11)) Then      '统计  号码+姓名+节次 的分值，并合计
    
16.             d(x & "分值") = d(x & "分值") + arr(i, 11)
    
17.             d(y & "分值") = d(y & "分值") + arr(i, 11)
    
18.         End If
    
19.         If Len(arr(i, 12)) Then        '统计  号码+姓名 的说明，成字符串
    
20.             x = arr(i, 5) & arr(i, 6) & "说明"
    
21.             d(x) = d(x) & "," & arr(i, 12)
    
22.         End If
    
23.     Next
    
24.    
    
25.     For k = 3 To 23 Step 20     '上下两个表
    
26.         arr = Cells(k, 1).Resize(13, 23)      '上下两个表的区间
    
27.         For j = 5 To 23
    
28.             If arr(1, j) = "" Then arr(1, j) = arr(1, j - 1)    '第一行为节次
    
29.             For i = 3 To UBound(arr)
    
30.                 If arr(i, 2) <> "" Then      '除最后一列外，key=号码+姓名+（节次/合计）+（暂停/犯规/分值），最后一列key=号码+姓名+说明
    
31.                     x = IIf(j < 23, arr(i, 2) & arr(i, 3) & arr(1, j) & arr(2, j), arr(i, 2) & arr(i, 3) & arr(1, j))
    
32.                     arr(i, j) = IIf(j < 23, d(x), Mid(d(x), 2))
    
33.                 End If
    
34.             Next
    
35.         Next
    
36.         Cells(k, 1).Resize(13, 23) = arr    '显示结果
    
37.     Next
    
38. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Sub grf()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 2 To UBound(arr)
   
5.         x = arr(i, 5) & arr(i, 6) & arr(i, 7)   '号码+姓名+节次
   
6.         y = arr(i, 5) & arr(i, 6) & "合计"       '号码+姓名+合计
   
7.         If Len(arr(i, 9)) Then       '统计  号码+姓名+节次 的暂停次数，并合计
   
8.             d(x & "暂停") = d(x & "暂停") + 1
   
9.             d(y & "暂停") = d(y & "暂停") + 1
   
10.         End If
    
11.         If Len(arr(i, 10)) Then       '统计  号码+姓名+节次 的犯规次数，并合计
    
12.             d(x & "犯规") = d(x & "犯规") + 1
    
13.             d(y & "犯规") = d(y & "犯规") + 1
    
14.         End If
    
15.         If Len(arr(i, 11)) Then      '统计  号码+姓名+节次 的分值，并合计
    
16.             d(x & "分值") = d(x & "分值") + arr(i, 11)
    
17.             d(y & "分值") = d(y & "分值") + arr(i, 11)
    
18.         End If
    
19.         If Len(arr(i, 12)) Then        '统计  号码+姓名 的说明，成字符串
    
20.             x = arr(i, 5) & arr(i, 6) & "说明"
    
21.             d(x) = d(x) & "," & arr(i, 12)
    
22.         End If
    
23.     Next
    
24.    
    
25.     For k = 3 To 23 Step 20     '上下两个表
    
26.         arr = Cells(k, 1).Resize(13, 23)      '上下两个表的区间
    
27.         For j = 5 To 23
    
28.             If arr(1, j) = "" Then arr(1, j) = arr(1, j - 1)    '第一行为节次
    
29.             For i = 3 To UBound(arr)
    
30.                 If arr(i, 2) <> "" Then      '除最后一列外，key=号码+姓名+（节次/合计）+（暂停/犯规/分值），最后一列key=号码+姓名+说明
    
31.                     x = IIf(j < 23, arr(i, 2) & arr(i, 3) & arr(1, j) & arr(2, j), arr(i, 2) & arr(i, 3) & arr(1, j))
    
32.                     arr(i, j) = IIf(j < 23, d(x), Mid(d(x), 2))
    
33.                 End If
    
34.             Next
    
35.         Next
    
36.         Cells(k, 1).Resize(13, 23) = arr    '显示结果
    
37.     Next
    
38. End Sub

复制代码

爱疯

数据统计2.rar (10.58 KB, 下载次数: 1)

2017-7-18 16:51 上传

点击文件名下载附件

用数据透视表吧