заполнить строку значениями с разбросом- подскажите

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Предложенный max11 вариант - это и есть самы что ни на есть "средствами excel" :)

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

Код: Выделить всё

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