так формируется трехмерный массив cube:

ReDim cube(1 To 500, 1 To 20, DTP1.Month To DTP2.Month)
For k = DTP1.Month To DTP2.Month
ss = "select kvo,isnull(sum(pr_rab),0), isnull(sum(gptu),0), isnull(sum(pr_sovm12),0), isnull(sum(pr_sovm15),0), isnull(sum(scho),0), " _
& " isnull(sum(pr_rab),0)+isnull(sum(gptu),0)+isnull(sum(pr_sovm12),0)+isnull(sum(pr_sovm15),0)+isnull(sum(scho),0), " _
& " isnull(sum(pr_spec),0), isnull(sum(pr_slug),0), isnull(sum(pr_ruk),0), isnull(sum(pr_spec),0)+isnull(sum(pr_slug),0)+isnull(sum(pr_ruk),0), " _
& " isnull(sum(pr_rab),0)+isnull(sum(gptu),0)+isnull(sum(pr_sovm12),0)+isnull(sum(pr_sovm15),0)+isnull(sum(scho),0)+ " _
& " isnull(sum(pr_spec),0)+isnull(sum(pr_slug),0)+isnull(sum(pr_ruk),0), isnull(sum(nepr_rab),0), isnull(sum(nepr_sovm13),0), " _
& " isnull(sum(nepr_sovm16),0), isnull(sum(nepr_rab),0)+isnull(sum(nepr_sovm13),0)+isnull(sum(nepr_sovm16),0), " _
& " isnull(sum(nepr_ruk),0), isnull(sum(nepr_rab),0)+isnull(sum(nepr_sovm13),0)+isnull(sum(nepr_sovm16),0)+isnull(sum(nepr_ruk),0), " _
& " isnull(sum(nespisoch),0), isnull(sum(pr_rab),0)+isnull(sum(gptu),0)+isnull(sum(pr_sovm12),0)+isnull(sum(pr_sovm15),0)+isnull(sum(scho),0)+isnull(sum(pr_spec),0)+isnull(sum(pr_slug),0)+ " _
& " isnull(sum(pr_ruk),0)+isnull(sum(nepr_rab),0)+isnull(sum(nepr_sovm13),0)+isnull(sum(nepr_sovm16),0)+isnull(sum(nepr_ruk),0)+isnull(sum(nespisoch),0) " _
& " from structur_otiz, vopl where structur_otiz.kvo=vopl.shifr and vopl.grv='ФЗП' and mes ='" & k & "' and god = '" & DTP1.Year & "' " & sq & "" _
& " and isnull(vopl.vyvod, '2060-01-01')>'" & DTP1.Year & "-" & k & "-28" & "' and vopl.vvod-1<'" & DTP1.Year & "-" & k & "-28" & "' " _
& " group by kvo with rollup"
Debug.Print ss
rcd1.CursorLocation = adUseClient
rcd1.Open ss, ADOConnection2, adOpenKeyset, adLockBatchOptimistic
If rcd1.RecordCount > 0 Then
For i = 1 To rcd1.RecordCount
For j = 1 To rcd1.Fields.Count - 1
cube(i, j, k) = rcd1.Fields(j).Value
Next j
rcd1.MoveNext
Next i
End If
rcd1.Close
Next k

Помогите!!! Как сложить по оси k массив cube по ключевой оси i в двухмерный массив?

да, я уже разобралась с суммированием.