Сформировать из двумерного массива одномерный в форме спирали - VBA

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

Дан двумерный массив, сделать из него одномерный массив в форме спирали дан например: 1 2 3 4 5 6 7 8 9 получится должно: 1 2 3 6 9 8 7 4 5 должно работать для любой размерности.

Решение задачи: «Сформировать из двумерного массива одномерный в форме спирали»

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

                            Sub SpiraleArray()
    Dim I%, R%, C% 'Г±Г·ВёГІГ·ГЁГЄ ГЁ ГІГҐГЄГіГ№ГЁГҐ ГЄГ®Г®Г°Г¤ГЁГ*Г*ГІГ» Гў Г¬Г*Г±Г±ГЁГўГҐ
    Dim cR%, cC% 'ГЄ-ГўГ® Г±ГІГ°Г®ГЄ ГЁ Г±ГІГ®Г«ГЎГ¶Г®Гў Г¬Г*Г±Г±ГЁГўГ*
    Dim dR%, dC 'ГЇГ°ГЁГ°Г*Г№ГҐГ*ГЁГї ГЇГ® Г±ГІГ°Г®ГЄГ*Г¬ ГЁ Г±ГІГ®Г«ГЎГ¶Г*Г¬ Г± ГіГ·ВёГІГ®Г¬ ГЄ-ГўГ* ГЇГ®ГўГ®Г°Г®ГІГ®Гў
    Dim P% 'Г±Г·ВёГІГ·ГЁГЄ ГЇГ®ГўГ®Г°Г®ГІГ®Гў
    Dim a2(), b1()
    Cells.ClearContents 'Г®Г·ГЁГ±ГІГЄГ* ГЇГ®Г«Гї
     
    cR = InputBox("Г‘ГІГ°Г®ГЄ?") 'Г§Г*Г¤Г*ВёГ¬ Г°Г*Г§Г¬ГҐГ°Г»
    cC = InputBox("Г‘ГІГ®Г«ГЎГ¶Г®Гў?") 'Г¬Г*Г±Г±ГЁГўГ*
    ReDim a2(1 To cR, 1 To cC)
    ReDim b1(1 To cR * cC)
    'Г§Г*ГЇГ®Г«Г*ГЁГІГј Г¤ГўГіГµГ¬ГҐГ°Г*Г»Г© Г¬Г*Г±Г±ГЁГў
    For R = 1 To cR
        For C = 1 To cC
            a2(R, C) = Int(100 * Rnd) + 1
        Next
    Next
    Cells(1, 1).Resize(cR, cC) = a2
    'Г§Г*ГЇГ®Г«Г*ГЁГІГј Г®Г¤Г*Г®Г¬ГҐГ°Г*Г»Г© Г¬Г*Г±Г±ГЁГў ГЇГ® Г±ГЇГЁГ°Г*Г«ГЁ
    R = 1: C = 1 'Г*Г*Г·Г*Г«ГјГ*Г»ГҐ ГЄГ®Г®Г°Г¤ГЁГ*Г*ГІГ»
    dC = 1: dR = 0 'Г*Г*Г·Г*Г«ГјГ*Г»ГҐ ГЇГ°ГЁГ°Г*Г№ГҐГ*ГЁГї
    For I = 1 To cR * cC 'Г¶ГЁГЄГ« ГЇГ® ГўГ±ГҐГ¬ ГїГ·ГҐГ©ГЄГ*Г¬ Г¬Г*Г±Г±ГЁГўГ*
        b1(I) = a2(R, C)
        a2(R, C) = 0 'Г¤Г«Гї ГЄГ®Г*ГІГ°Г®Г«Гї Г§Г*Г*ГҐГ±ГҐГ*ГЁГї Гў Г¬Г*Г±Г±ГЁГў b1
        If R + dR > cR Or R + dR < 1 Or C + dC > cC Or C + dC < 1 Then
            P = P + 1 'Г±Г«ГҐГ¤ГіГѕГ№ГЁГ¬ ГµГ®Г¤Г®Г¬ ГўГ»ГЇГ*Г¤Г*ГҐГ¬ ГЁГ§ Г¬Г*Г±Г±ГЁГўГ*->ГЇГ®ГўГ®Г°Г*Г·ГЁГўГ*ГҐГ¬
        ElseIf a2(R + dR, C + dC) = 0 Then
            P = P + 1 'Г±Г«ГҐГ¤ГіГѕГ№ГЁГ¬ ГµГ®Г¤Г®Г¬ ГЇГ®ГЇГ*Г¤Г*ГҐГ¬ Гў Г®ГЎГ*ГіГ«ГҐГ*Г*Г®ГҐ Г§Г*Г*Г·ГҐГ*ГЁГҐ->ГЇГ®ГўГ®Г°Г*Г·ГЁГўГ*ГҐГ¬
        End If
        dC = (2 - (P + 1) Mod 4) Mod 2 'ГЇГҐГ°ГҐГ±Г·ГЁГІГ»ГўГ*ГҐГ¬ ГЇГ°ГЁГ°Г*Г№ГҐГ*ГЁГї
        dR = (2 - P Mod 4) Mod 2 'Г± ГіГ·ВёГІГ®Г¬ ГЄ-ГўГ* ГЇГ®ГўГ®Г°Г®ГІГ®Гў
        C = C + dC 'Г*Г®ГўГ»ГҐ
        R = R + dR 'ГЄГ®Г®Г°Г¤ГЁГ*Г*ГІГ»
    Next I
    Cells(cR + 2, 1).Resize(1, UBound(b1)) = b1
End Sub
                        