¿Cómo hacer un sorteo de nombres en Excel?

En tu trabajo diario, a veces necesitas seleccionar algunos empleados al azar de una larga lista de nombres como los nombres ganadores. En Excel, ¿cómo podrías seleccionar algunos nombres al azar para realizar el sorteo? En este artículo, hablaré sobre algunos métodos útiles para manejar esta tarea en Excel.

Extraer nombres aleatorios para realizar el sorteo con fórmula

Seleccionar nombres aleatorios para realizar el sorteo con Kutools para Excel

Extraer nombres aleatorios para realizar el sorteo con código VBA

Extraer nombres aleatorios para realizar el sorteo con fórmula

Por ejemplo, quiero extraer 3 nombres cualesquiera de la lista de nombres; la siguiente fórmula larga puede ayudarte, por favor haz lo siguiente:

Introduce esta fórmula en una celda en blanco donde quieras poner el resultado: =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)))) , y luego arrastra el controlador de relleno hacia abajo hasta las celdas que necesites, ver captura de pantalla:

Notas:

1. En la fórmula anterior: A2:A16 es la lista de nombres de la que deseas extraer aleatoriamente, B2 es el número requerido de nombres que deseas extraer, C2 es la celda donde ingresarás la fórmula, y C1 es la celda encima de la celda de la fórmula.

2. Puedes presionar la tecla F9 para obtener otro grupo de nuevos nombres aleatoriamente.

Seleccionar nombres aleatorios para realizar el sorteo con Kutools para Excel

Quizás los dos métodos anteriores sean difíciles para la mayoría de nosotros; aquí, si tienes Kutools para Excel, con su función Ordenar Rango Aleatoriamente, puedes seleccionar nombres rápidamente de forma aleatoria.

Después de instalar Kutools para Excel, por favor haz lo siguiente:

1. Selecciona la lista de nombres que quieres seleccionar al azar. Luego haz clic en Kutools > Rango > Ordenar / Seleccionar Rango Aleatoriamente, ver captura de pantalla:

2. En el cuadro de diálogo Ordenar/Seleccionar Rango Aleatoriamente, bajo la pestaña Seleccionar, ingresa el número de nombres que deseas seleccionar en el cuadro de texto Número de Celdas a Seleccionar, y luego elige Seleccionar celdas aleatorias en la sección Tipo de Selección, ver captura de pantalla:

3. Luego haz clic en el botón Aceptar, y se habrán seleccionado el número específico de nombres que necesitabas, ver captura de pantalla:

¡Haz clic para Descargar Kutools para Excel y prueba gratis ahora!

Extraer nombres aleatorios para realizar el sorteo con código VBA

Aquí, un código VBA también puede ayudarte a completar esta tarea, por favor haz lo siguiente:

1. Mantén presionadas las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Extraer nombres aleatorios de una lista:

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

Nota: En el código anterior, B2 es la celda que contiene el número de nombres que deseas extraer.

3. Después de insertar el código, haz clic en Herramientas > Referencias en la ventana Microsoft Visual Basic para Aplicaciones abierta, y luego, en el cuadro de diálogo Referencias – VBAProject emergente, marca la opción Microsoft Scripting Runtime en el cuadro de lista Referencias Disponibles, ver captura de pantalla:

4. Y luego haz clic en el botón Aceptar para salir del cuadro de diálogo, luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de mensaje recordándote que selecciones la lista de datos de la que deseas extraer nombres, ver captura de pantalla:

5. Haz clic en el botón Aceptar, y aparecerá otro cuadro de mensaje, selecciona una celda donde quieras colocar el resultado, ver captura de pantalla:

6. Luego haz clic en Aceptar, y el número deseado de nombres se habrá creado aleatoriamente de inmediato, ver captura de pantalla: