Помогите мне пожалуйста с задачкой

[umiko]

Помогите мне пожалуйста с задачкой на VBA в EXcel
Вот условие: Дан двумерный массив из 20 строк. Перенести первые k строк в конец массива, соблюдая порядок их следования.
Код:
Private Sub CommandButton1_Click()
Dim A()
Dim B()
Dim c
Dim k

c = 18
k = 13
ReDim A(19, c)
ReDim B(19, c)

For i = 0 To 19
For j = o To c
A(i, j) = i
Next i
Next j

For i = 0 To 19
For j = 0 To c
B(i, j) = A((i + k) Mod 19, j)
Next j
Next i

For i = 0 To 19
For j = 0 To c
A(i, j) = B(i, j)
Next j
Next i

End Sub


Задачка выдает ошибку: ссылается на Next i с таким предупреждением Invalid Next control variable reference

[EducatedFool]

И зачем создавать дубликаты тем?

Ответ здесь: http://www.programmersforum.ru/showthread.php?t=49808

[umiko]

думала не туда скинула тему...так получилось,спасибо

[umiko]

задачка не работает(((

[EducatedFool]

задачка не работает(((

А кто сказал, что код будет работать?
Тебе надо было избавиться от выскакивающей ошибки, что я и сделал...

Чтобы увидеть, что делает твой код, запусти слегка модернизированный его вариант:

Private Sub CommandButton1_Click()
    ActiveSheet.Cells.Clear ' очистка листа
    c = 18: k = 13: ReDim A(19, c): ReDim B(19, c)

    For i = 0 To 19
        For j = o To c
            A(i, j) = i
        Next j
    Next i
    [a1:s20] = A    ' переносим массив на лист

    For i = 0 To 19
        For j = 0 To c
            B(i, j) = A((i + k) Mod 20, j)
        Next j
    Next i

    For i = 0 To 19
        For j = 0 To c
            A(i, j) = B(i, j)
        Next j
    Next i
    [a25] = "Новый массив": [a1:s20].Offset(25) = A    ' переносим массив на лист
End Sub

И ты увидишь, что твой код просто сдвигает строки в массиве...

[umiko]

эту я ошибку сразу исправила,как ты показал...
спасибо большое...интересная задачка оказалась