Есть  3 -х мерный массив, три оси ( 1  - кол-во записей,  2  - кол-во столбцов,  3  - кол-во месяцев), буквенно (i,j,k).
Результаты его наполнения:
 1  месяц
КС        12 
ПТЭС      10 
УЭС       30 

 2  месяц
ПТЭС      20 
УЭС        6      

т.е. во  2  месяце КС нет. далее делаю из него двумерный.
код такой: (cube -  3 -мерный массив)

ReDim locarr( 1  To  20 ,  1  To  4 )                  '2-мерный массив
    For k = DTP1.Month To DTP2.Month           'месяцы
        For i =  1  To  20                         'количество записей
            For j =  1  To  4                      'количество столбцов
                If j >  1  Then                  'все остальные столбцы
                    locarr(i, j) = locarr(i, j) + cube(i, j, k)
                Else                           'если название предприятия
                    locarr(i, j) = cube(i, j, k)
                End If
            Next j
        Next i
    Next k
Erase cube

В итоге получается результат:
ПТЭС      32 
УЭС       16 
          30 .

т.е. он складывает все по-порядку, не учитывая, что складывать надо только одинаковые по названию предприятия. т.е. результат 
должен быть таким:
КС        12 
ПТЭС      30 
УЭС       36 .
Подскажите, как это сделать?