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