Задачка VBA

[Zulfat1993]

Составить массив С из массивов А и В по условию если a(j)-b(j)<=2 тогда c(j)=a(j)^2 в противном случае c(j)=b(j)^3.

Sub name()
Dim a(10) As Single
Dim b(10) As Single
Dim c(10) As Single
Dim i, j As Integer
For i = 1 To 10 Step 1
For j = 1 To 10 Step 1
a(i) = Cells(1, j)
b(j) = Cells(2, j)
Next i
Next j
For j = 1 To 10 Step 1
If a(i) - b(j) <= 2 Then c(j) = a(j) ^ 2 Else c(j) = b(j) ^ 3
Next j
Cells(4, j) = c(j)
End Sub

Не работает.Подскажите где ошибки.

[ViktorR]

1. Форматируйте код. Выделить код и нажать символ '#' на форме окна редактирования.
2. А с чего это должно работать?
Что делают два цикла по i и j?
Как понимаю, тут должна быть инициализация массивов значениями из ячеек Excel. Это можно сделать так:

For i = 1 To 10 Step 1
   a(i) = Cells(1, i)
   b(j) = Cells(2, i)
Next i

А тут хотелось увидеть сформированный массив. Но при этом в ячейку Excel, "по неустановленной причине" :-), помещаем только одно, последнее значение.
Это следут поправить так:

For i = 1 To 10 Step 1
   If a(i) - b(i) <= 2 Then
      c(i) = a(i) ^ 2
   Else
       c(i) = b(i) ^ 3
   End If
   Cells(4, i) = c(i)
Next i

Как-то так, ...

[Zulfat1993]

Сообщение от ViktorR

1. Форматируйте код. Выделить код и нажать символ '#' на форме окна редактирования.
2. А с чего это должно работать?
Что делают два цикла по i и j?
Как понимаю, тут должна быть инициализация массивов значениями из ячеек Excel. Это можно сделать так:

For i = 1 To 10 Step 1
   a(i) = Cells(1, i)
   b(j) = Cells(2, i)
Next i

А тут хотелось увидеть сформированный массив. Но при этом в ячейку Excel, "по неустановленной причине" :-), помещаем только одно, последнее значение.
Это следут поправить так:

For i = 1 To 10 Step 1
   If a(i) - b(i) <= 2 Then
      c(i) = a(i) ^ 2
   Else
       c(i) = b(i) ^ 3
   End If
   Cells(4, i) = c(i)
Next i

Как-то так, ...

Sub mane()
Dim a(10) As Single
Dim b(10) As Single
Dim c(10) As Single
Dim i, j As Integer
For i = 1 To 10 Step 1
a(i) = Cells(1, i)
b(j) = Cells(2, i)
Next i
For i = 1 To 10 Step 1
If a(i) - b(i) <= 2 Then
c(i) = a(i) ^ 2
Else
c(i) = b(i) ^ 3
End If
Cells(4, i) = c(i)
Next i
End Sub

так?