Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo hacer un sorteo en Excel?

En su trabajo diario, a veces, necesita seleccionar algunos empleados al azar de una lista larga de nombres como los nombres de la suerte. En Excel, ¿cómo puedes seleccionar aleatoriamente algunos nombres para hacer sorteo? En este artículo, hablaré sobre algunos métodos útiles para manejar este trabajo en Excel.

Extrae nombres aleatorios para hacer sorteo con fórmula

Extrae nombres aleatorios para hacer sorteo con el código VBA

Selecciona nombres aleatorios para hacer sorteo con Kutools para Excel


Seleccione nombres aleatorios para hacer nombres afortunados en Excel

Para seleccionar algunos empleados al azar de una lista larga de nombres como los nombres de la suerte, puede aplicar el Kutools for Excel, Con su Clasificar rango aleatoriamente función, puede seleccionar rápidamente una cantidad específica de nombres aleatoriamente según lo necesite.

doc lucky names 9

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


Extrae nombres aleatorios para hacer sorteo con fórmula

Por ejemplo, quiero extraer cualquier nombre 3 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 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 arrastre el controlador de relleno a las celdas como lo necesite, vea la captura de pantalla:

doc lucky names 1

Notas:

1. En la fórmula anterior: A2: A16 es la lista de nombres que desea extraer de forma aleatoria, B2 es el número requerido que desea extraer nombres, C2 es la celda donde ingresar la fórmula, y C1 es la celda por encima de la celda de fórmula.

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


Extrae nombres aleatorios para hacer sorteo con el código VBA

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

1. Mantenga presionado 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 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

Nota: En el código anterior, B2 es la celda contiene la cantidad de nombres que desea extraer.

3. Después de insertar el código, haga clic Herramientas > Referencias en el abierto Microsoft Visual Basic para aplicaciones ventana, y luego, en el estallado Referencias - VBAProject cuadro de diálogo, verificar Microsoft Scripting Runtime opción en el Referencias disponibles cuadro de lista, ver captura de pantalla:

doc lucky names 2

4. Y luego haz clic OK para salir del cuadro de diálogo, luego presione F5 clave para ejecutar este código, y se abre un cuadro de aviso para recordarle que seleccione la lista de datos de la que desea extraer los nombres, vea la captura de pantalla:

doc lucky names 3

5. Hacer clic OK y se abre otro cuadro de diálogo emergente, seleccione una celda donde desea colocar el resultado, vea la captura de pantalla:

doc lucky names 4

6. Luego haga clic OK, y la cantidad deseada de nombres ha sido creada aleatoriamente a la vez, ver captura de pantalla:

doc lucky names 5


Selecciona nombres aleatorios para hacer sorteo con Kutools para Excel

Puede estar por encima de dos métodos son difíciles para la mayoría de nosotros, aquí, si tiene Kutools for Excel, Con su Clasificar rango aleatoriamente característica, puede seleccionar rápidamente nombres aleatoriamente.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione la lista de nombres que desea seleccionar al azar. Luego haga clic Kutools > Rango > Clasificar rango aleatoriamente, mira la captura de pantalla:

doc lucky names 6

2. En la Clasificar rango aleatoriamente cuadro de diálogo, debajo del Seleccionar pestaña, ingrese el número que desea seleccionar en el No. de celdas para seleccionar cuadro de texto, y luego elegir Seleccionar celdas aleatorias en el objeto Seleccione tipo sección, ver captura de pantalla:

doc lucky names 7

3. Luego haga clic Ok y su número específico de nombres ha sido seleccionado como lo necesita, vea la captura de pantalla:

doc lucky names 8

Haga clic para descargar Kutools para Excel y prueba gratuita ¡Ahora!


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Funciona con Office 2007-2019 y 365. Soporta todos los idiomas. Fácil despliegue en compañía. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ravikumar Mangipudi · 10 months ago
    Error:
    #NUM!



    Formula:
    =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$1500,AGGREGATE(15,6,((ROW(A$2:A$1500)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$1500,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$1500)-COUNTA(C$1:C1)+1))))
    • To post as a guest, your comment is unpublished.
      skyyang · 10 months ago
      Hello, Mangipudi,
      This formula works well in my Excel workbook, which Excel version do you use?
      You can also give your problem as a screenshot here.