Разбиение одномерного массива на двумерный - VBA

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

Добрый день. Я новичок в VBA, поэтому прошу помощи у вас. Мне нужно создать модуль, который разбивает одномерный массив на набор двумерных массивов произвольной размерности. Конечные двумерные массивы должны иметь одинаковые размеры.И еще нужно сделать возможным заполнение матриц как по строкам, так и по столбцам в зависимости от выбора пользователя. У самого ничего не получается сделать.

Решение задачи: «Разбиение одномерного массива на двумерный»

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

                            Sub Bangobang()
Dim b
Cells.Clear
    Dim a(1 To 3, 1 To 4), c(1 To 2, 1 To 6)
    Dim i&, x&, y&
 
    b = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
    
    i = -1
    For x = 1 To 3
        For y = 1 To 4
            i = i + 1
            a(x, y) = b(i)
        Next
    Next
    [a2].Resize(3, 4) = a
    
    i = -1
    For x = 1 To 2
        For y = 1 To 6
            i = i + 1
            c(x, y) = b(i)
        Next
    Next
    [a7].Resize(2, 6) = c
    
End Sub
                        