完善数组，brr数组第三五列怎么生成

weiyingde

LMY123 发表于 2017-11-4 16:17
没看懂，答次次数，答问课数，是什么意思？姓名重复的次数？还是？

谢谢你，方便的话，帮我看看

weiyingde

大侠路过，过来一看，搭手援救

weiyingde

liulang0808 发表于 2017-11-4 16:22
建议楼主结合附件内容说明下，具体要做什么
如果在当前代码中已经生成需求的brr数据内容，只差排序的话， ...

能否在看看附件呢？

microyip

1. Sub 汇总()
   
2.     Dim vData As Variant, vRow As Variant, nCol As Integer
   
3.     Dim sName As String, vKey As Variant, oDic As Object, vFill As Variant, nFill As Long, nFillRow As Long, nOrder As Long
   
4.    
   
5.     Set oDic = CreateObject("Scripting.Dictionary")
   
6.     vData = Sheet1.[A1].CurrentRegion.Value
   
7.     ReDim vFill(1 To 5, 1 To UBound(vData))
   
8.     If UBound(vData) = 1 Then Exit Sub
   
9.    
   
10.     For vRow = 2 To UBound(vData)
    
11.         sName = Trim(vData(vRow, 1)) '姓名
    
12.         vKey = sName & "|" & Trim(vData(vRow, 5)) '课内容
    
13.         If Val(sName) > 0 Then sName = Replace(sName, Val(sName), "")
    
14.         If Not oDic.Exists(sName) Then
    
15.             nFill = nFill + 1
    
16.             oDic(sName) = nFill
    
17.             vFill(1, nFill) = sName
    
18.         End If
    
19.         nFillRow = oDic(sName)
    
20.         vFill(2, nFillRow) = vFill(2, nFillRow) + 1 '答次次数
    
21.         If Not oDic.Exists(vKey) Then
    
22.             oDic(vKey) = 0
    
23.             vFill(3, nFillRow) = vFill(3, nFillRow) + 1 '答次课数
    
24.         End If
    
25.         vFill(4, nFillRow) = vFill(4, nFillRow) + vData(vRow, 6) '总分
    
26.     Next
    
27.     If nFill > 0 Then
    
28.         ReDim Preserve vFill(1 To 5, 1 To nFill)
    
29.         vData = Application.WorksheetFunction.Transpose(vFill)
    
30.         vFill = Empty
    
31.         ReDim vFill(1 To nFill, 1 To 5)
    
32.         oDic.RemoveAll
    
33.         For vRow = 1 To nFill
    
34.             If oDic.Exists(vData(vRow, 4)) Then
    
35.                 oDic(vData(vRow, 4)) = oDic(vData(vRow, 4)) & "|" & Trim(vRow)
    
36.             Else
    
37.                 oDic(vData(vRow, 4)) = Trim(vRow)
    
38.             End If
    
39.         Next
    
40.         nFillRow = 0
    
41.         For nFill = 1 To oDic.Count
    
42.             vKey = Split(oDic(Application.WorksheetFunction.Large(oDic.keys, nFill)), "|")
    
43.             nOrder = nOrder + 1 '名次
    
44.             For Each vRow In vKey
    
45.                 nFillRow = nFillRow + 1
    
46.                 For nCol = 1 To 4
    
47.                     vFill(nFillRow, nCol) = vData(Val(vRow), nCol)
    
48.                 Next
    
49.                 vFill(nFillRow, 5) = nOrder
    
50.             Next
    
51.         Next
    
52.         Sheet1.[J2:N2].Resize(nFillRow) = vFill
    
53.     End If
    
54. End Sub

复制代码

microyip

附上附件以供参考

weiyingde

microyip 发表于 2017-11-4 22:38
附上附件以供参考

代码的速度非常快，出乎意料的好！！
非常好，已完全达到目的，谢谢你。

weiyingde

microyip 发表于 2017-11-4 22:38
附上附件以供参考

还向老师请教一个问题：
若还有个与此规格相同的“全期汇总”的表格，也要进行汇总。
能否对这一个过程，稍加修改，实现统计两表的“一箭双雕”？

microyip

weiyingde 发表于 2017-11-5 10:44
还向老师请教一个问题：
若还有个与此规格相同的“全期汇总”的表格，也要进行汇总。
能否对这一个过程 ...

你把代码理解一遍，自行修改就可以了

weiyingde

microyip 发表于 2017-11-5 10:46
你把代码理解一遍，自行修改就可以了

我是想调用这一个过程，先后生成VfillA和VfillB两个数组。简单的修改只要改变工作表名称就可以了。但这样会造成代码的冗余，我不想这样做。尝试能否将工作表名改为变量实现？
请大侠支个思路，我试一下。

microyip

weiyingde 发表于 2017-11-5 10:55
我是想调用这一个过程，先后生成VfillA和VfillB两个数组。简单的修改只要改变工作表名称就可以了。但这样 ...

整个代码中只有两处才与工作表有关，其余的都可以理解为与工作表本身无关，属于计算而已