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

weiyingde

学艺不精，智能生成J、K、M列数据（即brr中的1、2、4列）能否生成L、N数据（即补全Brr数组中的3、5列数据)?
   为了后续的工作，要求只用一个数组brr，并对brr进行排序（排序要在数组中进行),按得分从高到低排序。

Sub brr数组第三五列怎么生成()
Dim arr1, arr2()
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
With Worksheets("本次得分")
     r = .[A65536].End(xlUp).Row
     c = .[A2].End(xlToRight).Column
     If r = 1 Then Exit Sub
     arr1 = .Range(.Cells(2, 1), .Cells(r, c))
     ReDim Preserve arr2(1 To r - 1, 1 To c)
     For i = LBound(arr1) To UBound(arr1)
         For j = 1 To c
             arr2(i, j) = IIf(j = 1, IIf(Val(Left(arr1(i, 1), 2)) > 10, Application.Substitute(Right(arr1(i, 1), Len(arr1(i, 1)) - 2), " ", ""), _
                          Application.Substitute(arr1(i, 1), " ", "")), arr1(i, j))
         Next
     Next
     For i = 1 To r - 1
         d1(arr2(i, 1)) = ""
     Next
     ReDim brr(1 To d1.Count, 1 To 5)
     For i = LBound(arr2, 2) To UBound(arr2)
         If Not d.Exists(arr2(i, 1)) Then
            m = m + 1
            d(arr2(i, 1)) = m
            brr(m, 1) = arr2(i, 1)
            brr(m, 2) = 1
            'brr(m,3)=?
            brr(m, 4) = arr2(i, 6)
         Else
            brr(d(arr2(i, 1)), 2) = brr(d(arr2(i, 1)), 2) + 1
            'brr(d(arr2(i, 1)), 2) =?
            brr(d(arr2(i, 1)), 4) = brr(d(arr2(i, 1)), 4) + arr2(i, 6)
            
         End If
     Next
     .[j2].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End With
End Sub

weiyingde

再次求助，大侠救我，谢谢！！

LMY123

没看懂，答次次数，答问课数，是什么意思？姓名重复的次数？还是？

liulang0808

建议楼主结合附件内容说明下，具体要做什么
如果在当前代码中已经生成需求的brr数据内容，只差排序的话，那么需要根据哪列排序？
冒泡排序，看看就知道了，找到大的就往上串

weiyingde

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

答问次数        答问课数
答问次数，即统计回答问题的次数；
答问课数，即统计参与回答问题的课文篇数

microyip

其实你的方法就可以啦，关键是"何为课数？"，至于原数组brr上排序处理这个问题，基本不能实现的，可以借助字典排序

weiyingde

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

就是对附件中的arr2数组中的数据就行统计和汇总。
在此间基础上生成新数组brr。
1、brr第一列，写入回答问题的学生姓名（已经实现）。
2、brr第二列，统计一共有多少次参与回答问题（已经实现）。
3、brr第三列，统计一共有多少课文参与回答问题（未实现）
     ——感觉是否要用双字典，单字典尚且不会用，何况双字典？
4、brr第四列，写入分数汇总（已经实现）
5、brr第五列，按得分多少进行降序排列。
全部过程要求在字典或数组中实现，（最后的结果若能用原数组表示更好），因为这个数组的数据要与PPT中的过程要进行交互。
谢谢，不知说清楚了没有。

weiyingde

microyip 发表于 2017-11-4 16:39
其实你的方法就可以啦，关键是"何为课数？"，至于原数组brr上排序处理这个问题，基本不能实现的，可以借助 ...

谢谢你，
因为要对arr2数组数据要进行两列统计（第一列和第五列的数据），感觉好像要用双字典，单字典目前还是懵懵懂懂，双字典更不会。
第一列重复的次数，即是该生一共参与回答问题的次数，对应brr的第二列，这个比较简单，已经实现。
第五列不重复的次数，即是该生一共参与回答多少课文的篇数，这个没有实现。

liulang0808

weiyingde 发表于 2017-11-4 16:51
就是对附件中的arr2数组中的数据就行统计和汇总。
在此间基础上生成新数组brr。
1、brr第一列，写入回 ...

改别人的代码，有时候不如自己写来的快
所以建议楼主结合附件内容，描述下具体问题吧
或者将您的问题简化，仅仅针对数据的某一部分处理  
然后根据需求，自己再整合，您看这样是否可以？

weiyingde

liulang0808 发表于 2017-11-4 16:57
改别人的代码，有时候不如自己写来的快
所以建议楼主结合附件内容，描述下具体问题吧
或者将您的问题简 ...

能理解，不知我说清楚了没有。
若大侠已经明白，就按你的思路写一个能实现目标的代码；
若我没有说清楚，我就做一个模拟效果，您再看看。核心问题是：能否结合字典和数组实现双统计，并写入一个数组之中。
希望你劳心写详细点，数组和字典的综合运用，我十分生疏，我想借助这个实例，理解一下
谢谢。