Перемешайте список в Excel (простое пошаговое руководство)

Видео: Перемешивание списка в Excel

Перемешивание списка с помощью функций

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

Перемешайте список с помощью функции СЛЧИС

Пользователи любой версии Excel могут легко и случайным образом отсортировать исходный набор данных с помощью функции СЛЧИС и стандартной функции сортировки. Выполните следующие шаги.

Шаг 1: Введите формулу СЛЧИС

Выберите ячейку рядом с верхней ячейкой списка, который вы хотите перемешать, введите приведённую ниже формулу СЛЧИС и нажмите «Enter».

=RAND()

Шаг 2: Заполните формулу СЛЧИС в другие ячейки

Дважды щелкните маркер заполнения (маленький зелёный квадрат в правом нижнем углу ячейки с формулой), чтобы автоматически применить эту формулу ко всем ячейкам ниже.

Шаг 3: Отсортируйте результаты СЛЧИС, чтобы перемешать список

1. Выделите диапазон «B2:B8», содержащий формулу СЛЧИС.

2. Нажмите «Сортировка и фильтр» > «Сортировка от наименьшего к наибольшему» в группе «Редактирование» на вкладке «Главная».

3. В появившемся диалоговом окне выберите «Расширить выделение» и нажмите кнопку «Сортировать».

Результат

Теперь всё готово! Список перемешан, как показано ниже.

Перемешайте список с помощью функций СЛУЧМАСС, СОРТПО и СТРОК (Excel 365/2021)

Если вы используете более новые версии Excel — например, Excel для Microsoft 365, Excel 2021 или Excel для Интернета, — формулы RANDARRAY, SORTBY и ROWS позволят быстро перемешать список прямо на месте.

Шаг 1: Введите формулу СЛУЧМАСС, СОРТПО и СТРОК

Выберите пустую ячейку, куда нужно поместить перемешанный результат, введите приведённую ниже формулу (обратите внимание: замените «)A2:A8» в формуле на диапазон исходного списка, который требуется перемешать) и нажмите «Enter».

=SORTBY(A2:A8,RANDARRAY(ROWS(A2:A8)))

(Необязательно) Шаг 2: Скопируйте и вставьте результат формулы, чтобы его можно было редактировать

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

1. Выделите результат формулы и нажмите «Ctrl» + «C», чтобы скопировать его.

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

3. Выберите в контекстном меню опцию «Вставить значения».

Результат

Теперь у вас есть перемешанный и редактируемый список, как показано ниже.

Перемешайте список в Excel с помощью Kutools всего за 2 кликов

Если вам надоело возиться с формулами и вы хотите воспользоваться надстройкой, функция Сортировать, выбирать или случайно перемешивать из Kutools для Excel поможет выполнить случайную сортировку гораздо проще и с гораздо большим количеством опций. Следуйте инструкциям:

Сначала выделите список, который нужно перемешать. Затем выберите «Kutools» → «Диапазон» → «Сортировать, выбирать или случайно перемешивать». В появившемся диалоговом окне «Сортировать, выбирать или случайно перемешивать» выберите «Вся строка» и нажмите «ОК».

Перемешивание списка с помощью VBA

Если вы предпочитаете перемешивать список с помощью метода VBA, следуйте приведённым ниже инструкциям.

Шаг 1: Выделите список, который нужно перемешать

Шаг 2: Скопируйте код VBA в окно модуля

1. Нажмите «Ctrl» + «F11», чтобы открыть редактор VBA, затем выберите «Вставка» > «Модуль» и откройте окно кода модуля.

2. Скопируйте приведённый ниже код 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

Шаг 3: Запустите код VBA

В окне кода нажмите «F5» или щелкните кнопку , чтобы запустить этот код.

Результат

Связанные статьи

• Как случайным образом выбрать ячейки в Excel?
• Предположим, у вас есть столбец значений (A1:A15) на листе, и вы хотите случайным образом выбрать из него 5 ячеек. Как это сделать? В этой статье я покажу вам несколько эффективных способов случайного выбора ячеек в Excel.
• Как выбрать случайные элементы из списка без дубликатов?
• В этой статье я расскажу, как создать ячейку со списком без дублирующихся значений. Два приведённых ниже метода помогут вам быстро справиться с этой задачей.
• Как случайным образом выбрать ячейки в Excel на основе заданных критериев?
• Например, вам нужно случайным образом выбрать данные на основе одного или двух критериев из ограниченного диапазона. Как это сделать в Excel? В этой статье представлено несколько решений.
• Как случайным образом заполнить ячейки значениями из заданного списка в Excel?
• Допустим, у вас есть список имён, и вы хотите случайным образом выбрать несколько из них и заполнить ими определённые ячейки. Как это сделать? Ниже я покажу несколько способов случайного заполнения ячеек значениями из заданного списка в Excel.
• Еще больше советов и хитростей для Excel…