Генерация случайных чисел в Excel: от простых формул до VBA

Почему Excel не умеет генерировать по-настоящему случайные числа?

Microsoft Excel — мощный инструмент для анализа данных, но его функции генерации случайных чисел часто вызывают вопросы. Дело в том, что все алгоритмы в Excel создают псевдослучайные числа — последовательности, которые только имитируют случайность. Это связано с тем, что компьютеры по своей природе детерминированные устройства: они не могут создать истинную случайность без внешнего источника энтропии (например, аппаратного генератора).

Для большинства задач — тестирования формул, моделирования бизнес-процессов или создания демонстрационных данных — псевдослучайных чисел вполне достаточно. Однако если вам нужна криптографическая стойкость (например, для генерации паролей), лучше использовать специализированные инструменты. В этой статье мы рассмотрим 5 практических способов генерации чисел в заданном диапазоне, от базовых функций до продвинутых макросов.

Важно понимать разницу между:

• 🔢 Целыми случайными числами (например, для имитации количества продаж)
• 📊 Вещественными числами (для статистического моделирования)
• 🎲 Уникальными значениями (когда повторения недопустимы)

Способ 1: Функция СЛЧИС для вещественных чисел от 0 до 1

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

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

• 📌 =СЛЧИС() → 0.37456289 (пример результата)
• 📌 =СЛЧИС()*100 → число от 0 до 100
• 📌 =СЛЧИС()+5 → число от 5 до 6

Чтобы зафиксировать значения и прекратить их автоматическое обновление, выполните:

1. Выделите ячейки со случайными числами
2. Нажмите Ctrl+C (скопировать)
3. Правой кнопкой → Специальная вставка → Значения

Способ 2: Целые числа в диапазоне с помощью СЛУЧМЕЖДУ

Для генерации целых случайных чисел в заданном диапазоне предназначена функция СЛУЧМЕЖДУ() (англ. RANDBETWEEN). Её синтаксис прост: =СЛУЧМЕЖДУ(нижняя_граница; верхняя_граница). В отличие от СЛЧИС(), эта функция включает обе границы диапазона.

Примеры:

• 🎲 =СЛУЧМЕЖДУ(1; 100) → целое число от 1 до 100
• 🎲 =СЛУЧМЕЖДУ(-50; 50) → число от -50 до 50
• 🎲 =СЛУЧМЕЖДУ(1000; 9999) → четырёхзначный код

Ограничения функции СЛУЧМЕЖДУ():

• ⚠️ Максимальное значение — 2^30-1 (1 073 741 823)
• ⚠️ Не работает с дробными границами (округляет до целых)
• ⚠️ Как и СЛЧИС(), пересчитывается при изменении листа

Способ 3: Вещественные числа в произвольном диапазоне

Если вам нужны дробные случайные числа в диапазоне, отличном от 0–1, комбинируйте СЛЧИС() с арифметическими операциями. Общая формула:

=СЛЧИС()*(макс - мин) + мин

Примеры:

• 📏 =СЛЧИС()*90 + 10 → число от 10 до 100
• 📏 =СЛЧИС()*(-20) - 10 → число от -30 до -10
• 📏 =СЛЧИС()*24 + 1 → время в часах (1–24)

Для округления результата до нужного количества знаков используйте функцию ОКРУГЛ():

• 🔵 =ОКРУГЛ(СЛЧИС()*100; 2) → число от 0 до 100 с 2 знаками после запятой
• 🔵 =ОКРУГЛ(СЛЧИС()*90 + 10; 1) → от 10 до 100 с шагом 0.1

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

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

Метод 1. Использование промежуточных столбцов

1. Сгенерируйте случайные числа в столбце A (например, =СЛУЧМЕЖДУ(1; 100))
2. В столбце B проверьте уникальность с помощью =СЧЁТЕСЛИ($A$1:A1; A1)=1
3. Отфильтруйте столбец B по значению ИСТИНА и скопируйте уникальные значения

Метод 2. Формула массива (для Excel 365 и 2019):

=УНИК(СЛУЧМЕЖДУ(1; 100); ЛОЖЬ; ИСТИНА)

Эта формула вернёт массив уникальных чисел от 1 до 100 в случайном порядке.

Метод 3. Надстройка "Анализ данных" (для старых версий Excel):

• Перейдите в Данные → Анализ данных → Выборка
• Выберите метод выборки: Случайно
• Укажите диапазон исходных данных и место для результата

Способ 5: Автоматизация с помощью VBA

Если вам нужно сгенерировать тысячи случайных чисел или реализовать сложную логику (например, нормальное распределение), на помощь придёт Visual Basic for Applications. Ниже приведён макрос для генерации уникальных чисел в заданном диапазоне:

Sub GenerateUniqueRandomNumbers()
Dim rng As Range
Dim minVal As Integer, maxVal As Integer
Dim count As Integer
Dim i As Integer, randomNum As Integer
Dim dict As Object

' Создаём словарь для отслеживания уникальности
Set dict = CreateObject("Scripting.Dictionary")

' Задаём параметры (измените под свои нужды)
Set rng = Range("A1:A100") ' Диапазон для вывода
minVal = 1                ' Нижняя граница
maxVal = 1000             ' Верхняя граница
count = 100               ' Количество чисел

' Генерация
For i = 1 To count
Do
randomNum = Int((maxVal - minVal + 1) * Rnd + minVal)
Loop While dict.Exists(randomNum) ' Проверка на уникальность
dict.Add randomNum, 1
rng.Cells(i, 1).Value = randomNum
Next i
End Sub

Как использовать этот макрос:

• 🖥️ Нажмите Alt+F11, чтобы открыть редактор VBA
• 🖥️ Вставьте код в новый модуль (Insert → Module)
• 🖥️ Запустите макрос нажатием F5 или через Выполнить → Run Sub

Преимущества VBA:

• ⚡ Быстрая генерация больших массивов (десятки тысяч чисел)
• ⚡ Возможность реализовать любое распределение (нормальное, экспоненциальное)
• ⚡ Контроль над уникальностью и форматом чисел

Типичные ошибки и как их избежать

При работе со случайными числами в Excel пользователи часто сталкиваются с неожиданными результатами. Вот наиболее распространённые проблемы и их решения:

⚠️ Внимание! Если вы используете СЛУЧМЕЖДУ(1; 10) в ячейке с форматом Общий, Excel может отобразить число с нулями после запятой (например, 5.000000). Это не ошибка — просто измените формат ячейки на Числовой без десятичных знаков.

Ошибка 1. Повторяющиеся последовательности

Если после закрытия и открытия файла Excel вы видите те же "случайные" числа, это нормально: Excel инициализирует генератор случайных чисел seed-значением, привязанным к системному времени при открытии файла. Чтобы получить новые числа, нажмите F9 (пересчёт формул) или добавьте любое изменение на лист.

Ошибка 2. #ЗНАЧ! в СЛУЧМЕЖДУ

Эта ошибка возникает, если:

• 🔴 Нижняя граница больше верхней (например, =СЛУЧМЕЖДУ(10; 1))
• 🔴 Аргументы не являются числами (например, текст или ошибка)

Ошибка 3. Медленная работа при большом количестве формул

Если на листе тысячи ячеек со СЛЧИС() или СЛУЧМЕЖДУ(), Excel будет тормозить при каждом пересчёте. Решения:

• 🟢 Отключите автоматический пересчёт: Формулы → Параметры вычислений → Вручную
• 🟢 Замените формулы на значения (как описано в Способе 1)
• 🟢 Используйте VBA для одноразовой генерации

FAQ: Ответы на частые вопросы

=ДАТА(СЛУЧМЕЖДУ(2020; 2023); СЛУЧМЕЖДУ(1; 12); СЛУЧМЕЖДУ(1; 28))

=ВЫБОР(СЛУЧМЕЖДУ(1; 3); "Яблоко"; "Банан"; "Апельсин")