Разбить массив на вложенные массивы - VBA

Формулировка задачи:

Добрый день. Помогите решить задачу: есть одномерный массив с данными (пусть будут числа месяца), нужно его разбить на 5 вложенных массивов по 7 элементов, т.е. Основной массив( Подмассив 0 = (1,2,3,4,5,6,7) Подмассив 1 = (8,9,10,11,12,13,14) Подмассив 2 = (15,16,17,18,19,20,21)...и тд. ) Как это сделать, мозгов что-то не хватает... P/S: Последний подмассив будет заполнен частично, т.е.в феврале с 28 днями он будет пустой.

Решение задачи: «Разбить массив на вложенные массивы»

textual
                            Листинг программы 
                        

                            Sub main()
Dim m
m = q_Split(Array("раз", "два", "три"), 2)
End Sub
 
Function q_Split(arr, u&)
Dim a(), aa()
Dim n As Long, nn As Long, i As Long, j As Long
ReDim a(UBound(arr) \ u)
For i = 0 To UBound(a)
  For j = 0 To u - 1
    If n > UBound(arr) Then
      Exit For
    Else
      ReDim Preserve aa(j)
      aa(j) = arr(n)
      n = n + 1
    End If
  Next j
  a(i) = aa
Next i
q_Split = a
End Function
                        