Цикл, запись результат в ячейки

[bruce_lee]

Здравствуйте, я Андрей. Ситуация: выполняется цикл while, каждый раз высчитывает значение f, как записывать значения в ячейки A1,A2,A3, и т.д. т.е. все результаты расчетов в свою ячейку?

While i <= x2
i = i + dx
f = (((Sin(i)) ^ 2) * ((i ^ 2) + Log(i))) / (((i ^ 2) + 7) ^ 0.5)
j = j + 1
Wend

нужно записать результат выполнения f (я посчитал цикл проходиться 50 раз).
с помощью range("A?").value=f никак не получается, похоже я ни то использую... Заранее благодарен.

P.S. google юзал, но там про выделение диапазона ячее инфу выдает.

[EugeneS]

вместо f:

cells(j,1)

До начала цикла j=1

[Hugo121]

Sub tt()
i = 1
For i = 1 To 10
Range("A" & i) = "test" & i
Next
End Sub

т.е. у Вас можно так доработать:

j = j + 1
Range("A" & j) = f

[bruce_lee]

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

вместо f:

cells(j,1)

До начала цикла j=1

EugeneS, благодарю - все работает

[bruce_lee]

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

Sub tt()
i = 1
For i = 1 To 10
Range("A" & i) = "test" & i
Next
End Sub

т.е. у Вас можно так доработать:

j = j + 1
Range("A" & j) = f

Hugo121, благодарю - ваш вариант также работает