
Но мне кажется, что было бы наиболее удобно в данной ситуации использовать макрос.
Код: Выделить всё
Sub qwe()
Dim ACell As Range
For Each ACell In Range("K1:K10")
ACell.Value = Rnd(123)
Next
End Sub
2) Вместо текстовой константы "K1:K10"
можно взять, например, текст из какой-нибудь неприметной ячейки, тогда макрос будет
более гибким, и вообще нет предела совершенству.