Пересчитать значения массива

[xrenomx]

Всем привет,возникла проблема с задачкой в вба,необходимо пересчитать значения двумерного массива след. образом:
если aij < j тогда надо к aij прибавить j иначе
aij умножить на j

Посмотрите пожалуйста и скажите правильно ли я делаю?Последнее с чем не могу справится,так это вывести полученный массив на List1

Public Sub Mass_arr()
i%,j%,k%,n%,a()% 
 
 n = InputBox("Vvedite razmernost")
 ReDim a(1 To n, 1 To n)
 For i = 1 To n
      For j = 1 To n
          a(i, j) = InputBox(" A(" & i & "," & j & ") =")
            Sheets("List1").Cells(i, j).Value = a(i, j)
    Next j
Next i

For i = 1 To n
    For j = 1 To n
If a(i, j) < j Then
a(i, j) = a(i, j) + j
Else
a(i, j) = a(i, j) * j
End If
Next
Next
End Sub

Прошу помощи!

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

For i = 1 To n
    For j = 1 To n
If a(i, j) < j Then
vv(i, j) = a(i, j) + j
Else
vv(i, j) = a(i, j) * j
End If
 Next
    Next
    Вывод результата
End Sub

Правда не знаю,правильное ли присвоение здесь происходит...

[Stilet]

Упростим?

Public Sub Mass_arr()
i%,j%,k%,n%,a()% 
 
 n = InputBox("Vvedite razmernost")
 ReDim a(1 To n, 1 To n)
 For i = 1 To n
      For j = 1 To n
          a(i, j) = InputBox(" A(" & i & "," & j & ") =")

If a(i, j) < j Then
a(i, j) = a(i, j) + j
Else
a(i, j) = a(i, j) * j
End If

          Sheets("List1").Cells(i, j).Value = a(i, j)
    Next j
Next i
End Sub

так сказать итоговый,для вывода полученных результатов?

На кой кукарач он нужен? У тебя весь экзель мегамассив.
Да и потом:

 debug.print  a(i, j)

Еще никто не отменял.

[xrenomx]

Биг спс,щас проверю...