Подправьте код!

[naboman]

Нужно подчеркнутые строки добавить в масив!



вот собственно код!

Dim a(1 To 5, 1 To 8) As Integer, i As Integer, j As Integer, n As Integer, m As Integer
n = 2
m = 3
For i = 1 To 5
For j = 1 To 8
a(i, j) = Cells(n, m).Value
m = m + 1
Next j
n = n + 3
Next i


он добавляет только первую строку и все(

[IgorGO]

Dim a(1 To 5, 1 To 8) As Integer, i As Integer, j As Integer, n As Integer, m As Integer
n = 2
For i = 1 To 5
m = 3
For j = 1 To 8
a(i, j) = Cells(n, m).Value
m = m + 1
Next j
n = n + 3
Next i

[Hugo121]

m=3 добавьте перед внутренним циклом.

Опоздал... писал много

[naboman]

Спасибо огромное! Все работает)