Разбить число на значения

[Андрей Андрей]

Подскажите пожалуйста как можно разбить число например
10   на  1,1,1,1,1,1,1,1,1,1
5    на   1,1,1,1,1
2     на 1,1
100 соответственно на сто однерок  ну и т.д

[Pelena]

Если в А1 число

Код Выделить Развернуть

=ЛЕВСИМВ(ПОВТОР("1,";A1);A1*2-1)

[zs]

=ЕСЛИ(СУММ($B$3:B3)<$A$3;1;"")

[kuklp]

Код Выделить Развернуть

Function Ones(Number As Long) As String
    Ones$ = Mid$(Replace$(Space$(Number), " ", ", 1"), 3)
End Function

[Андрей Андрей]

Спасибо всем огромное.!!!