Как сгенерировать случайное число в Excel: от простых формул до VBA

Зачем нужны случайные числа в Excel и где их применяют

Случайные числа в Microsoft Excel — это не просто игра с формулами, а мощный инструмент для решения реальных задач. Представьте: вам нужно рандомизировать список участников розыгрыша, смоделировать вероятностные сценарии в бизнесе или создать тестовые данные для отладки отчётов. Без генерации случайных значений эти процессы заняли бы часы ручной работы.

В финансовом анализе рандомные числа используют для Монте-Карло симуляций — метода, который помогает оценить риски инвестиционных портфелей. В маркетинге — для A/B-тестирования (например, случайное распределение клиентов по группам для тестирования новых акций). Даже в образовании: преподаватели генерируют случайные варианты контрольных работ, чтобы исключить списывание. А игровые разработчики на Excel создают прототипы механик с элементами случайности.

Но здесь кроется подводный камень: стандартные функции СЛЧИС() или RAND() обновляют значения при любом изменении в книге. Это означает, что ваши "случайные" данные могут поменяться, если кто-то просто откроет файл или добавит строку. Как этого избежать? Об этом — в следующих разделах.

Способ 1: Базовая функция СЛЧИС() — быстро, но нестабильно

Самый простой метод — использовать встроенную функцию СЛЧИС() (или RAND() в английской версии). Она возвращает случайное число от 0 до 1 с 15 знаками после запятой. Например, так:

=СЛЧИС()

Проблема: значение обновляется при любом действии в книге — пересчёте формул, сохранении, даже при прокрутке листа. Это делает функцию непригодной для статичных данных. Однако её можно адаптировать:

• 🔢 Целые числа в диапазоне: умножьте на разницу максимума и минимума, затем добавьте минимум и округлите:

  =ОКРУГЛ(СЛЧИС()*(max-min)+min; 0)

  Например, для диапазона 10-50: =ОКРУГЛ(СЛЧИС()*40+10; 0)

• 📊 Случайные даты: комбинируйте с ДАТА():

  =ДАТА(2026; 1; 1)+СЛЧИС()*365

  Это даст случайную дату в 2026 году.

• 🎲 Бросок кубика: =ОКРУГЛ(СЛЧИС()*5+1; 0) — имитация игрального кубика (1-6).

⚠️ Внимание: Если вы скопируете ячейку с СЛЧИС() в буфер обмена, а затем вставите как значения (Ctrl+Shift+V → Значения), числа зафиксируются. Но это неудобно для больших диапазонов.

Способ 2: Функция СЛУЧМЕЖДУ() — диапазон без формул

Функция СЛУЧМЕЖДУ() (или RANDBETWEEN()) решает две проблемы СЛЧИС(): во-первых, она сразу возвращает целые числа в заданном диапазоне, во-вторых, синтаксис интуитивно понятнее. Формат:

=СЛУЧМЕЖДУ(нижняя_граница; верхняя_граница)

Примеры использования:

• 🎟️ Номера билетов: =СЛУЧМЕЖДУ(1000; 9999) — сгенерирует 4-значный номер.
• 📅 Случайный год: =СЛУЧМЕЖДУ(1900; 2026).
• 💰 Случайная скидка: =СЛУЧМЕЖДУ(5; 50) & "%" — вернёт строку вида 23%.

Ограничения:

• Максимальное значение — 32767 (если нужно больше, используйте СЛЧИС() с умножением).
• Как и СЛЧИС(), обновляется при любом изменении в книге.

Способ 3: Неизменяемые случайные числа (без VBA)

Чтобы случайные числа не менялись при пересчёте, их нужно "запечь" в ячейки. Вот 3 способа сделать это без макросов:

1. Специальная вставка:

   Выделите диапазон с формулами → Ctrl+C → Правый клик → Специальная вставка → Значения. Это заменит формулы на статичные числа.

2. Функция НД():

   Добавьте к формуле НД() (или NA()), чтобы блокировать пересчёт:

   =ЕСЛИ(НД(); СЛУЧМЕЖДУ(1; 100); "")

   После первого расчёта ячейка покажет ошибку #Н/Д, но число останется фиксированным.

3. Горячие клавиши:

   Выделите ячейки → Ctrl+C → Alt+E+S+V (поочерёдно) → Enter. Это аналог специальной вставки.

⚠️ Внимание: Если вы фиксируете числа для розыгрыша или лотереи, сохраните файл в формате .xlsx до замены формул на значения. В противном случае можно случайно обновить данные при открытии.

Способ 4: Генерация уникальных случайных чисел (без повторов)

Частая задача — создать список случайных чисел, где все значения уникальны. Например, для распределения призов среди 100 участников без повторений. Вот как это сделать:

Метод 1. Формула массива (Excel 365/2021):

=СОРТИРОВКАПО(ПОСЛЕДОВАТ(100); СЛУЧМЕЖДУМАСС(СТРОКА(1:100)))

Эта формула сгенерирует массив чисел от 1 до 100 в случайном порядке. Для других диапазонов замените 100 на нужное значение.

Метод 2. Power Query (для больших диапазонов):

1. Перейдите на вкладку Данные → Получить данные → Из других источников → Пустой запрос.
2. В редакторе Power Query введите в строку формул:

   = List.Random({1..1000})

   Это создаст список из 1000 уникальных чисел в случайном порядке.

3. Нажмите Закрыть и загрузить.

Метод 3. VBA для старых версий Excel:

Если у вас Excel 2010-2016, создайте такой макрос:

Sub UniqueRandom()
Dim rng As Range, arr(), i As Long, temp As Variant
Set rng = Selection
ReDim arr(1 To rng.Rows.Count)
For i = 1 To rng.Rows.Count
arr(i) = i
Next i
Randomize
For i = UBound(arr) To 1 Step -1
j = Int((i - 1 + 1) * Rnd + 1)
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
Next i
rng.Value = Application.Transpose(arr)
End Sub

Выделите диапазон → запустите макрос (Alt+F8). Он заполнит ячейки уникальными числами от 1 до количества строк.

Способ 5: Случайные числа с весами (вероятностями)

Допустим, вам нужно сгенерировать числа, где некоторые значения должны появляться чаще других. Например, в симуляции продаж 10% клиентов покупают товар А, 30% — товар Б, а 60% — товар В. Для этого используйте взвешенную случайность.

Шаг 1. Создайте таблицу весов:

Шаг 2. Используйте формулу:

=ИНДЕКС($A$2:$A$4; ПОИСКПОЗ(СЛЧИС()*100; $C$2:$C$4; 1))

Где:

• $A$2:$A$4 — столбец со значениями (A, Б, В),
• $C$2:$C$4 — столбец с накопленными весами.

Пример для чисел: Если вам нужны числа 1, 2, 3 с вероятностями 20%, 30%, 50%, накопленные веса будут 20, 50, 100.

Продвинутые техники: VBA и надстройки

Если вам нужны тысячи уникальных чисел или сложные распределения (например, нормальное распределение Гаусса), стандартные функции Excel не подойдут. Здесь поможет VBA или надстройки.

1. Генерация нормально распределённых чисел:

Function NormalRandom(mean As Double, stdev As Double) As Double
Dim u1 As Double, u2 As Double, w As Double, z As Double
Randomize
u1 = Rnd()
u2 = Rnd()
w = Sqr(-2  Log(u1))  Cos(2  Application.WorksheetFunction.Pi()  u2)
NormalRandom = mean + stdev * w
End Function

Используйте в ячейке как: =NormalRandom(10; 2)

где 10 — среднее, а 2 — стандартное отклонение.

2. Надстройка Analysis ToolPak:

3. Power Query для больших данных:

let
Source = List.Generate(
() => {Random.Real()},
each List.Count(_) < 1000000,
each _ & {Random.Real()}
),
ToTable = Table.FromList(Source, Splitter.SplitByNothing(), {"RandomNumbers"})
in
ToTable

=СИМВОЛ(СЛУЧМЕЖДУ(1040; 1103))

Private Sub Workbook_Open()
Sheets("Лист1").Range("A1:A100").Value = _
Application.WorksheetFunction.RandBetween(1, 100)
End Sub

=ДАТА(2026; 1; 1) + СЛЧИС() * (ДАТА(2026; 12; 31) - ДАТА(2026; 1; 1))

=ДАТА(2020; 1; 1) + СЛЧИС() * 1461

Dim NextTime As Double

Sub StartTimer()
NextTime = Now + TimeValue("00:00:01")
Application.OnTime NextTime, "UpdateRandom"
End Sub

Sub UpdateRandom()
Sheets("Лист1").Range("A1:A10").Formula = "=RANDBETWEEN(1,100)"
NextTime = Now + TimeValue("00:00:01")
Application.OnTime NextTime, "UpdateRandom"
End Sub

Sub StopTimer()
On Error Resume Next
Application.OnTime NextTime, "UpdateRandom", , False
End Sub

Sub RandomColor()
Dim rng As Range, cell As Range
Set rng = Selection
For Each cell In rng
cell.Interior.Color = RGB(Rnd  255, Rnd  255, Rnd * 255)
Next cell
End Sub

=ТЕКСТ(СЛУЧМЕЖДУ(0; 16777215); "X000000")