Виконання випадкового сортування — це швидкий і простий спосіб гарантувати, що всі випадки з’являться з однаковою ймовірністю. У цьому підручнику ми поговоримо про те, як легко рандомізувати або перетасувати список у Excel за кілька кроків.
У цьому розділі я навчу вас, як перетасувати список за допомогою вбудованих функцій Excel.
Користувачі будь-якої версії Excel можуть у випадковому порядку сортувати вихідний набір даних за допомогою РАНД функціонують за допомогою сортувати виконайте наведені нижче дії.
Крок 1: Введіть формулу RAND
Виберіть комірку поряд із верхньою коміркою списку, який потрібно рандомізувати, введіть наведену нижче формулу RAND і натисніть вводити.
=RAND()
Крок 2. Заповніть формулу RAND в інші комірки
Двічі клацніть маркер заповнення (маленький зелений квадрат у нижньому правому куті) клітинки формули, щоб застосувати формулу до клітинок нижче.
Крок 3: відсортуйте результати RAND, щоб перетасувати список
1. вибрати B2: B8, список, який містить формулу RAND.
2. Натисніть на Сортувати та фільтрувати > Сортувати від найменшого до найбільшого в Редагування група на Головна Вкладка.
3. У спливаючому вікні Попередження про сортування діалог, виберіть Розгорніть вибір, а потім натисніть на сортувати.
Результат
Тепер усе готово! Список рандомізований, як показано нижче.
Якщо ви використовуєте новіші версії Excel, наприклад Excel для Microsoft 365 або Excel 2021 або Excel для Інтернету, RANDARRAY, СОРТУВАТИ ЗА і ROWS формула допоможе вам швидко отримати перетасований список у вказаній позиції.
Крок 1. Введіть формулу RANDARRAY, SORTBY і ROWS
Виберіть порожню клітинку, де ви хочете отримати рандомізований результат, введіть наведену нижче формулу (Зверніть увагу, що вам слід змінити A2: A8 у формулі нижче до вихідного списку, який ви хочете рандомізувати) і натисніть вводити.
=SORTBY(A2:A8,RANDARRAY(ROWS(A2:A8)))
(Необов’язково) Крок 2: Скопіюйте та вставте результат формули, щоб зробити його редагованим
Якщо ви хочете побачити лише випадковий результат, ви можете пропустіть цей крок. Якщо ви хочете відредагувати випадково перетасований список, вам слід скопіювати результат формули та вставити лише значення:
1. Виберіть результат формули та натисніть Ctrl + C скопіювати його.
2. Клацніть правою кнопкою миші комірку, куди потрібно вставити скопійований результат. (Ви також можете вставити значення в початкове розташування.)
3. Виберіть Вставити лише значення опція з меню, яке клацне правою кнопкою миші.
Результат
Тепер ви отримаєте перетасований і редагований список, як показано нижче.
Якщо ви втомилися від використання формул і маєте намір скористатися допомогою надбудови, Kutools для ExcelАвтора Сортування / вибір діапазону випадковим чином функція може допомогти вам виконувати випадкове сортування набагато простіше з більшою кількістю опцій. Будь ласка, наступним чином:
Спочатку виберіть список, який ви будете перемішувати. А потім виберіть Кутулс > Діапазон > Сортування / вибір діапазону випадковим чином. У спливаючому вікні Сортування / вибір діапазону випадковим чином діалог, виберіть Цілі ряди, а потім натисніть на Ok.
Якщо ви віддаєте перевагу рандомізації списку за допомогою методу VBA, зробіть наступне.
Крок 1. Виберіть список, який потрібно перетасувати
Крок 2: Скопіюйте код VBA у вікно модуля
1. прес Ctrl + F11 щоб відкрити редактор VBA, а потім натисніть Insert > Модулі щоб відкрити вікно коду модуля.
2. Скопіюйте та вставте наведений нижче код VBA у відкрите вікно модуля.
Код VBA: випадкове сортування списку
Sub RandomSort()
'Update by ExtendOffice
Dim xRg As Range
Dim xNum, xF, xI As Integer
Dim xWSh, xAWSh As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xAWSh = Application.ActiveSheet
Set xRg = ActiveWindow.RangeSelection
Set xWSh = Worksheets.Add
xNum = xRg.Count
For xF = xNum To 1 Step -1
xI = WorksheetFunction.RandBetween(1, xF)
xWSh.Range("A1").Value = xRg.Item(xI)
xRg.Item(xI) = xRg.Item(xF)
xRg.Item(xF) = xWSh.Range("A1")
Next
xWSh.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
У вікні коду натисніть F5 або натисніть кнопку кнопку, щоб запустити цей код.
Результат