Записать результат цикла палочками

[alex89d]

Нужно записать результат выполнения цикла в конкретную ячейку. то есть все итерации.

Цикл с параметром. конечное число повторений берется из значения в ячейке А1. А результат вывести в А3 в виде палочек. Например: число итераций 10, на выходе должно быть 10 палочек

[Aleksandr H.]

Sub af()
    Dim number As Long
    Dim i As Integer
    number = CLng([a1].Value2)
    For i = 1 To number: Next
    [a3] = String(number, "|")
End Sub

[alex89d]

спасибо