同条件のデータ別に合計を取るには?

Question 80.3 Excel VBA Borad (掲示板)より Previous Next
本日VBAに飛びついたビギナーです。 「全てが同じ得点である生徒名を抽出したいが?」への もてもてさんの回答マクロに感銘を受け、御質問させて頂きたく思い、書き込みさせて頂きます。
設例 左記のようなデータがあり、同条件のデータをset数で合計して下図のように作成したいのですが、可能でしょうか? もてもてさんのマクロを参考に同条件の抽出には成功したのでが、set数での合計が出来ません。
尚、可能であれば不一致のデータはそのまま残ると幸いです。 並びは気にしません。

結果
Answer   2005.1.13 もてもて
こんな感じ?
Sub Macro1()
Sub test()
    endRow = Cells(Rows.Count, 1).End(xlUp).Row
    myArray = Range(Cells(1, 1), Cells(endRow + 1, 6)).Value
    ReDim myArray_2(endRow - 1, 4)
    For r = 1 To 5
        myArray_2(0, r - 1) = myArray(1, r)
    Next r
    writeRow = 1
    For i = 2 To endRow
        If myArray(i, 6) = "" Then
            mycd1 = myArray(i, 1) & myArray(i, 2) & myArray(i, 3) & _
                myArray(i, 4)
            myNum = myArray(i, 5)
            For j = i + 1 To endRow + 1
                mycd2 = myArray(j, 1) & myArray(j, 2) & myArray(j, 3) & _
                    myArray(j, 4)
                If mycd1 = mycd2 Then
                myNum = myNum + myArray(j, 5)
                myArray(j, 6) = 1
                End If
            Next j
            For r = 1 To 4
                myArray_2(writeRow, r - 1) = myArray(i, r)
            Next r
            myArray_2(writeRow, 4) = myNum
            writeRow = writeRow + 1
        End If
    Next i
    Worksheets.Add
    Range(Cells(1, 1), Cells(endRow, 5)).Value = myArray_2
End Sub
ありがとうございました
もてもてさんありがとうございます。 感謝感激です。
改めてVBAをみてもチンプンカンプンですが、少しづつ勉強していきたいと思います。

 

Excel VBA Macro