Как рандомизировать строки Excel

Ответ 1

Возможно, весь столбец, заполненный случайными числами, не самый лучший способ сделать это, но он кажется, вероятно, наиболее практичным, как упомянуто @mariusnn.

В этой заметке это немного сработало с Office 2010, и хотя в целом ответы вроде того, что работает в lifehacker, я просто хотел для совместного использования дополнительного шага, необходимого для уникальности чисел:

• Создайте новый столбец рядом со списком, который вы собираетесь рандомизировать.
• Введите =rand() в первую ячейку нового столбца - это создаст случайное число от 0 до 1

• Заполните столбец этой формулой. Самый простой способ сделать это можно:

  • спуститесь по новому столбцу до последней ячейки, которую вы хотите рандомизировать.
  • удерживайте нажатой клавишу Shift и нажмите на последнюю ячейку
  • нажмите Ctrl + D

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

  Хитрость здесь состоит в том, чтобы пересчитать их! Перейдите на вкладку "Формулы" и нажмите "Рассчитать сейчас" (или нажмите "F9" ).

  Теперь все числа в столбце будут генерироваться случайным образом.

• Перейдите на вкладку "Главная" и нажмите "Сортировка и фильтр". Выберите нужный вам порядок (от самого маленького до самого большого или от максимального к наименьшему) - в зависимости от того, какой из них даст вам случайный порядок в отношении первоначального заказа. Затем нажмите "ОК", когда "Предупреждение о сортировке" предложит вам развернуть выделение.

• Ваш список должен быть рандомизирован прямо сейчас! Вы можете избавиться от столбца случайных чисел, если хотите.

Ответ 2

Я обычно делаю, как вы описываете:
Добавьте отдельный столбец со случайным значением (=RAND()), а затем выполните сортировку в этом столбце.

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

Ответ 3

Здесь макрос, который позволяет перетасовывать выбранные ячейки в столбце:

Option Explicit

Sub ShuffleSelectedCells()
  'Do nothing if selecting only one cell
  If Selection.Cells.Count = 1 Then Exit Sub
  'Save selected cells to array
  Dim CellData() As Variant
  CellData = Selection.Value
  'Shuffle the array
  ShuffleArrayInPlace CellData
  'Output array to spreadsheet
  Selection.Value = CellData
End Sub

Sub ShuffleArrayInPlace(InArray() As Variant)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ShuffleArrayInPlace
' This shuffles InArray to random order, randomized in place.
' Source: http://www.cpearson.com/excel/ShuffleArray.aspx
' Modified by Tom Doan to work with Selection.Value two-dimensional arrays.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Dim J As Long, _
    N As Long, _
    Temp As Variant
  'Randomize
  For N = LBound(InArray) To UBound(InArray)
    J = CLng(((UBound(InArray) - N) * Rnd) + N)
    If J <> N Then
      Temp = InArray(N, 1)
      InArray(N, 1) = InArray(J, 1)
      InArray(J, 1) = Temp
    End If
  Next N
End Sub

Вы можете прочитать комментарии, чтобы узнать, что делает макрос. Здесь, как установить макрос:

• Откройте редактор VBA (Alt + F11).
• Щелкните правой кнопкой мыши на "ThisWorkbook" под текущей открытой таблицей (в скобках после "VBAProject" ) и выберите "Вставить/Модуль".
• Вставьте код выше и сохраните таблицу.

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