Как разбросать числа в случайном порядке в Excel: 5 проверенных методов

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

Многие пользователи ошибочно полагают, что для этой задачи обязательно нужен VBA или сторонние надстройки. На самом деле 80% случаев покрываются стандартными формулами, доступными даже в Excel 2010. В этой статье мы разберём методы от самого простого (для новичков) до продвинутых (для работы с большими массивами данных), а также раскроем ключевую ошибку, из-за которой "случайные" числа на самом деле повторяются при каждом открытии файла.

Перед тем как приступить, убедитесь, что ваши данные подготовлены правильно: числа должны находиться в одном столбце без пустых ячеек. Если у вас таблица с несколькими колонками (например, ФИО и баллы), сначала выделите только тот столбец, который нужно перемешать.

1. Метод RAND: быстрое перемешивание с помощью вспомогательного столбца

Это самый популярный способ среди пользователей, не знакомых с VBA. Он основан на генерации случайных чисел в дополнительном столбце и последующей сортировке.

Алгоритм действий:

1. Добавьте справа от вашего списка чисел новый столбец (например, B).
2. В первой ячейке нового столбца (например, B2) введите формулу:

   =RAND()

3. Растяните формулу на все строки вашего списка (двойной клик по маркеру автозаполнения).
4. Выделите оба столбца (с исходными данными и случайными числами) и отсортируйте их по второму столбцу по возрастанию.
5. Удалите вспомогательный столбец — исходные данные теперь перемешаны.

⚠️ Внимание: Функция RAND() пересчитывается при каждом изменении листа или открытии файла. Чтобы зафиксировать результат, скопируйте перемешанные данные и вставьте их как Значения (правый клик → Специальная вставка → Значения).

Заблокированы ли ячейки с формулами (если нужно сохранить ссылки)|

Есть ли в данных объединённые ячейки (они сбивают сортировку)|

Сохранена ли копия исходных данных (на случай ошибки)|

Отключена ли автофильтрация (она может исказить результат)-->

Этот метод идеален для одноразового перемешивания небольших списков (до 1000 строк). Для больших массивов лучше использовать INDEX + RANDARRAY (см. следующий раздел).

2. Формула INDEX + RANDARRAY: перемешивание без сортировки (Excel 365/2021)

Если вы работаете в Excel 365 или Excel 2021, у вас есть доступ к функции RANDARRAY, которая упрощает процесс. Этот метод не требует создания вспомогательного столбца и сортировки — перемешивание происходит "на лету" с помощью одной формулы.

Пример для списка в диапазоне A2:A100:

=INDEX($A$2:$A$100, RANK(RANDARRAY(99), RANDARRAY(99)))

Как это работает:

• 🔢 RANDARRAY(99) генерирует массив из 99 случайных чисел.
• 📊 RANK присваивает каждому числу ранг (позицию в упорядоченном списке).
• 🔀 INDEX возвращает значение из исходного диапазона по случайному рангу.

⚠️ Внимание: Эта формула массива — после ввода нажмите Ctrl+Shift+Enter (в Excel 365 достаточно просто Enter). Если данные не отображаются, проверьте, нет ли в них пустых ячеек.

Excel 2010-2019|

Если вам нужно не просто перемешать список, а сгенерировать случайную последовательность с возможными повторениями (например, для симуляции бросков кубика или розыгрыша призов), используйте RANDBETWEEN.

Пример: Сгенерировать 50 случайных чисел от 1 до 100 (с повторениями):

=RANDBETWEEN(1; 100)

=IF(COUNTIF($B$2:B2, RANDBETWEEN(1, 100))=0, RANDBETWEEN(1, 100), "")

=SORTBY(A2:C100, RANDARRAY(99))

Sub ShuffleRange()
Dim rng As Range, cell As Range, temp As Variant
Dim i As Long, j As Long, n As Long
Set rng = Range("A2:A100")
n = rng.Rows.Count

For i = 1 To n
j = Int((n - i + 1) * Rnd + i)
Set cell = rng.Cells(i)
temp = cell.Value
cell.Value = rng.Cells(j).Value
rng.Cells(j).Value = temp
Next i
End Sub

Randomize ' Добавляем в начало процедуры

=INDEX($A$2:$A$100, RANK(RANDARRAY(99), RANDARRAY(99)))

=INDEX($A$2:$A$100, SMALL(IF($B$2:$B$100=RANDARRAY(99), ROW($B$2:$B$100)-1), ROW(A1)))