Как сделать розыгрыш имён в Excel?

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

Извлечение случайных имён для розыгрыша с помощью формулы

Выбор случайных имён для розыгрыша с помощью Kutools для Excel

Извлечение случайных имён для розыгрыша с помощью кода VBA

Извлечение случайных имён для розыгрыша с помощью формулы

Например, я хочу извлечь любые 3 имени из списка имён, следующая длинная формула может помочь вам, сделайте так:

Введите эту формулу в пустую ячейку, где вы хотите разместить результат: =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1)))) , а затем перетащите маркер заполнения вниз по ячейкам, как вам нужно, см. скриншот:

Примечания:

1. В приведенной выше формуле: A2:A16 — это список имен, из которого вы хотите произвести случайный выбор, B2 — это необходимое количество имен для извлечения, C2 — это ячейка, куда вводится формула, а C1 — это ячейка над ячейкой с формулой.

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

Выбор случайных имен для розыгрыша с помощью Kutools для Excel

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

После установки Kutools для Excel, пожалуйста, сделайте следующее:

1. Выберите список имен, который вы хотите выбрать случайным образом. Затем нажмите Kutools > Диапазон > Сортировать, выбирать или случайно перемешивать, см. скриншот:

2. В диалоговом окне Сортировать, выбирать или случайно перемешивать, на вкладке Выбрать, введите число, которое вы хотите выбрать имен, в текстовое поле Количество выбираемых ячеек, а затем выберите Ячейка в разделе Тип выбора, см. скриншот:

3. Затем нажмите кнопку ОК, и ваше определенное количество имен будет выбрано, как вам нужно, см. скриншот:

Нажмите, чтобы загрузить Kutools для Excel и попробовать бесплатно прямо сейчас!

Извлечение случайных имен для розыгрыша с помощью кода VBA

Здесь код VBA также может помочь вам завершить эту задачу, сделайте следующее:

1. Удерживайте клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модуль, и вставьте следующий код в окно Модуля.

Код VBA: Извлечение случайных имен из списка:

Public Sub LuckyDraw()
    Dim I, J, xRnd As Long
    Dim xSRg, xDRg As Range
    Dim xDic As New Dictionary
    Dim xnum, xLastRow As Long
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    xLastRow = xSRg.Rows.Count
    Set xSRg = xSRg(1)
    Set xDRg = xDRg(1)
    xnum = Range("B2")
    If xnum < 1 Then Exit Sub
    J = 0
    For I = 1 To xnum
LabExit:
        xRnd = Int(Rnd() * xLastRow)
        If xDic.Exists(xRnd) Then GoTo LabExit
        xDic.Add xRnd, ""
        xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
        J = J + 1
    Next
End Sub

Примечание: В приведенном выше коде B2 — это ячейка, содержащая количество имен, которые вы хотите извлечь.

3. После вставки кода нажмите Инструменты > Ссылки в открытом окне Microsoft Visual Basic для приложений, а затем в открывшемся диалоговом окне Ссылки – VBAProject установите флажок Microsoft Scripting Runtime в списке доступных ссылок, см. скриншот:

4. Затем нажмите кнопку OK, чтобы закрыть диалоговое окно, затем нажмите клавишу F5, чтобы запустить этот код, и появится окно с запросом, напоминающее вам выбрать список данных, из которого вы хотите извлечь имена, см. скриншот:

5. Нажмите кнопку OK, и появится еще одно окно с запросом, пожалуйста, выберите ячейку, куда вы хотите поместить результат, см. скриншот:

6. Затем нажмите OK, и желаемое количество имен будет создано случайным образом сразу же, см. скриншот: