[已解决]求助用字典统计成绩

fjmxwrs · 发表于 2010-12-5 13:48

求助：用字典统计成绩，key知道怎么处理了，后面晕

VUl6FjZw.rar (8.72 KB, 下载次数: 1)

白开水的味道 · 发表于 2010-12-5 14:47

HorD1ZiJ.rar (10.97 KB, 下载次数: 58)

兰色幻想 · 发表于 2010-12-5 15:36

开水代码写的不错

liuguansky · 发表于 2010-12-5 16:45

Sub 按钮1_Click()
    Dim arr, dic, i&, k&, arrt(), j&
    Set dic = CreateObject("scripting.dictionary")
    arr = Cells(1, 1).CurrentRegion.Value
    For i = 2 To UBound(arr, 1)
        If Not dic.Exists(arr(i, 1)) Then
            k = k + 1
            dic.Add arr(i, 1), k
        End If
    Next i
    ReDim arrt(1 To k, 1 To 6)
    For i = 2 To UBound(arr, 1)
        For j = 1 To 5
            arrt(dic(arr(i, 1)), j) = arr(i, j + 2) + arrt(dic(arr(i, 1)), j)
    Next j, i
    For i = 1 To k
        For j = 1 To 5
            arrt(i, 6) = arrt(i, j) + arrt(i, 6)
    Next j, i
    Range("i2:o" & Rows.Count).ClearContents
    Cells(2, "i").Resize(k, 1) = Application.Transpose(dic.Keys)
    Cells(2, "j").Resize(k, 6) = arrt
    Set dic = Nothing
End Sub

Q85hbnJq.rar (10.35 KB, 下载次数: 34)

		自动登录	找回密码
密码			注册