¿Cómo hacer nombres de sorteos en Excel?
En su trabajo diario, a veces, debe seleccionar algunos empleados al azar de una lista larga de nombres como nombres de la suerte. En Excel, ¿cómo podría seleccionar al azar algunos nombres para hacer un sorteo? En este artículo, hablaré sobre algunos métodos útiles para hacer frente a este trabajo en Excel.
Extrae nombres aleatorios para hacer un sorteo con fórmula
Extraiga nombres aleatorios para hacer un sorteo con código VBA
Seleccione nombres aleatorios para hacer un sorteo con Kutools para Excel
Extrae nombres aleatorios para hacer un sorteo con fórmula
Por ejemplo, quiero extraer 3 nombres de la lista de nombres, la siguiente fórmula larga puede ayudarlo, haga lo siguiente:
Ingrese esta fórmula en una celda en blanco donde desea colocar 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 arrastre el controlador de relleno hacia las celdas que necesite, vea la captura de pantalla:
Notas:
1. En la fórmula anterior: A2: A16 es la lista de nombres de la que desea extraer aleatoriamente, B2 es el número requerido que desea extraer nombres, C2 es la celda donde ingresar la fórmula, y C1 es la celda sobre la celda de fórmula.
2. Puede presionar F9 clave para obtener otro grupo de nombres nuevos al azar.
Extraiga nombres aleatorios para hacer un sorteo con código VBA
Aquí, un código VBA también puede ayudarlo a completar esta tarea, haga lo siguiente:
1. Mantenga pulsado el Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: extraiga 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
Note: En el código anterior, B2 es la celda que contiene el número de nombres que desea extraer.
3. Después de insertar el código, haga clic en Herramientas > Referencias en el abierto Microsoft Visual Basic para aplicaciones ventana, y luego, en la ventana emergente Referencias - VBAProject cuadro de diálogo, comprobar Tiempo de ejecución de secuencias de comandos de Microsoft opción en el Referencias disponibles cuadro de lista, ver captura de pantalla:
4. Y luego haz clic OK para salir del cuadro de diálogo, luego presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que seleccione la lista de datos de la que desea extraer nombres, vea la captura de pantalla:
5. Hacer clic OK , y aparece otro cuadro de aviso, seleccione una celda donde desea colocar el resultado, vea la captura de pantalla:
6. Luego haga clic OK, y la cantidad deseada de nombres se ha creado aleatoriamente a la vez, vea la captura de pantalla:
Seleccione nombres aleatorios para hacer un sorteo con Kutools para Excel
Puede estar por encima de dos métodos que son difíciles para la mayoría de nosotros, aquí, si tiene Kutools for Excel, Con su Ordenar rango aleatoriamente función, puede seleccionar rápidamente nombres al azar.
| Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, haz lo siguiente:
1. Seleccione la lista de nombres que desea seleccionar al azar. Luego haga clic en Kutools > Gama de Colores > Ordenar / Seleccionar rango aleatoriamente, ver captura de pantalla:
2. En la Ordenar / Seleccionar rango aleatoriamente cuadro de diálogo, debajo del Seleccione pestaña, ingrese el número que desea seleccionar nombres en la No. de celdas para seleccionar cuadro de texto y luego elija Seleccionar celdas aleatorias existentes Seleccione tipo sección, ver captura de pantalla:
3. Luego haga clic Ok botón, y su número específico de nombres se ha seleccionado como necesita, vea la captura de pantalla:
¡Haga clic para descargar Kutools para Excel y prueba gratuita ahora!
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
