Группировка по первому столбцу и суммирование значений элементов второго столбца

Option Compare Database
Sub lab9()
Dim vmas(11, 1) As Variant
vmas(0, 0) = red
vmas(1, 0) = red
vmas(2, 0) = black
vmas(3, 0) = black
vmas(4, 0) = red
vmas(5, 0) = blue
vmas(6, 0) = blue
vmas(7, 0) = black
vmas(8, 0) = blue
vmas(9, 0) = blue
vmas(10, 0) = black
vmas(11, 0) = black
 
vmas(0, 1) = 3
vmas(1, 1) = 6
vmas(2, 1) = 5
vmas(3, 1) = 9
vmas(4, 1) = 1
vmas(5, 1) = 6
vmas(6, 1) = 3
vmas(7, 1) = 11
vmas(8, 1) = 10
vmas(9, 1) = 1
vmas(10, 1) = 3
vmas(11, 1) = 2
 
Dim sum(11, 1) As Variant
For i = 0 To UBound(vmas)  
Next i
For j = 0 To UBound(sum)
Next j
Dim sql1 As Variant
sql1 = "create table result (ResultName char ,ResultSum integer)"
DoCmd.RunSQL sql1
DoCmd.RunSQL "INSERT INTO result(ResultName, ResultSum) SELECT ResultName, Sum(ResultSum) FROM result GROUP BY ResultName"
DoCmd.RunSQL "UPDATE result SET ResultSum = ResultSum + " & vmas(11, 1) & " WHERE ResultName = '" & vmas(11, 0) & "';"
DoCmd.OpenTable "result", acViewNormal, acReadOnly
MsgBox "Result work in table. Table close"
DoCmd.Close acTable, "result"
DoCmd.RunSQL ("drop table result")
End Sub

Option Base 1
Sub lab9()
  Const s1 = "red red black black red blue blue black blue blue black black"
  Const s2 = "3 6 5 9 1 6 3 11 1 1 3 2"
  Dim a(12, 2), i&, d As Object, b(), x1, x2, x
  
  Set d = CreateObject("scripting.dictionary")
  x1 = Split(s1): x2 = Split(s2)
  For i = 1 To UBound(a)
    a(i, 1) = x1(i - 1): a(i, 2) = CInt(x2(i - 1))
  Next
  
  For i = 1 To UBound(a)
    d(a(i, 1)) = d(a(i, 1)) + a(i, 2)
  Next
  
  ReDim b(d.Count, 2): i = 0
  For Each x In d.keys
    i = i + 1
    b(i, 1) = x
    b(i, 2) = d(x)
  Next
End Sub

Option Compare Database
 
Dim vmas(11, 1) As Variant
 
Sub main_grouping_method()
    
    Dim i As Integer
    
    vmas(0, 0) = "red"
    vmas(1, 0) = "red"
    vmas(2, 0) = "black"
    vmas(3, 0) = "black"
    vmas(4, 0) = "red"
    vmas(5, 0) = "blue"
    vmas(6, 0) = "blue"
    vmas(7, 0) = "black"
    vmas(8, 0) = "blue"
    vmas(9, 0) = "blue"
    vmas(10, 0) = "black"
    vmas(11, 0) = "black"
 
    vmas(0, 1) = 3
    vmas(1, 1) = 6
    vmas(2, 1) = 5
    vmas(3, 1) = 9
    vmas(4, 1) = 1
    vmas(5, 1) = 6
    vmas(6, 1) = 3
    vmas(7, 1) = 11
    vmas(8, 1) = 10
    vmas(9, 1) = 1
    vmas(10, 1) = 3
    vmas(11, 1) = 2
    
    DoCmd.SetWarnings False
    Call calcSums
    DoCmd.SetWarnings True
End Sub
 
Private Sub calcSums()
    DoCmd.SetWarnings False
    delTbl "Result"
    DoCmd.RunSQL "create table result (ResultName char UNIQUE, ResultSum integer)"
    For i = 0 To UBound(vmas)
        DoCmd.RunSQL "INSERT INTO result (ResultName, ResultSum) VALUES ('" & vmas(i, 0) & "', 0)"
        DoCmd.RunSQL "UPDATE result SET ResultSum = ResultSum + " & vmas(i, 1) & " WHERE ResultName = '" & vmas(i, 0) & "';"
    Next i
    DoCmd.SetWarnings True
    DoCmd.OpenTable "result", acViewNormal, acReadOnly
End Sub
 
Private Sub delTbl(tblName As String)
    If DCount("[Name]", "MSysObjects", "[Name] = '" & tblName & "'") = 1 Then
        If SysCmd(acSysCmdGetObjectState, acTable, tblName) = acObjStateOpen Then
            DoCmd.Close acTable, tblName
        End If
        DoCmd.RunSQL "DROP TABLE " & tblName
    End If
End Sub