Este método lo guiará a través de la aplicación de varias funciones de Excel para generar números de lotería. Y puede hacer lo siguiente:

1. En una hoja de trabajo en blanco, escriba los encabezados de columna en el rango A1: C1 como se muestra a continuación:

2. Ingrese fórmulas en la Columna A, Columna B y Columna C:

(1) En la celda A2, ingrese la fórmula = ALEATORIO ()y luego arrastre el controlador de relleno al rango A2: A50.
(2) En la celda B2, ingrese la fórmula =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1y luego arrastre el controlador de relleno al rango B2: B50. (En la fórmula, A2 es el número aleatorio que queda en la celda actual, $ A $ 2: $ A $ 50 son todos los números aleatorios que obtuvimos con la primera fórmula, B $ 1 es la primera celda en la Columna B y B1 es la celda arriba actual celda).
(3) En el rango C2: C50, ingrese los números de secuencia del 1 al 49.

Luego obtendrá una tabla como se muestra en la captura de pantalla izquierda:

 

¿La fórmula es demasiado complicada para recordar? Guarde la fórmula como una entrada de texto automático para reutilizarla con un solo clic en el futuro. Leer más ...     Prueba gratis

3. Busque un rango en blanco, escriba los números de secuencia horizontalmente en una fila como se muestra a continuación:

4. Debajo del primer número de secuencia de 1, ingrese la fórmula = BUSCARV (G1, $ B $ 1: $ C $ 50,2, FALSO) en él, y arrastre el controlador de relleno al rango que necesita.

Nota: En esta fórmula, G1 es la celda con el primer número de secuencia de 1, $ B $ 1: $ C $ 50 son la columna de rango único y la columna de número de bola, 2 significa buscar valores en la segunda columna del rango $ B $ 1: $ C $ 50 .

Luego obtendrá los números de lotería como se muestra a continuación:

5. Es opcional. Para evitar que los números de la lotería cambien automáticamente cuando se actualiza la hoja de trabajo actual, puede hacer clic en el Fórmula > Opciones de cálculo > Manual.

Enumere fácilmente todas las combinaciones de varias series de datos en Excel

Kutools for Excel, Listar todas las combinaciones La utilidad está diseñada para generalizar todas las combinaciones posibles de varias series de datos dadas, y enumerar estas combinaciones en una columna como se muestra a continuación.

Este método lo guiará para aplicar una macro VBA para generar números de lotería en Excel. Haz lo siguiente:

1. prensa otro + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic recuadro > Módulo para abrir una nueva ventana de módulo y pegar el siguiente código VBA en ella:

VBA: generador de números de lotería en Excel

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3. presione el F5 o haga clic en el Ejecutar botón para ejecutar esta macro de VBA.

4. Ahora, en el cuadro de diálogo emergente, especifique una celda para generar los números de lotería y haga clic en el OK del botón.

Luego verá que se generan 6 números de lotería únicos y se muestran en las celdas especificadas.

Si tiene Kutools for Excel instalado, su Insertar datos aleatorios La utilidad puede ayudarlo a generar números de lotería en Excel a la vez.

1. Seleccione 6 celdas adyacentes, como A1: F1, y luego haga clic en el Kutools > recuadro > Insertar datos aleatorios.

2. Ahora aparece el cuadro de diálogo Insertar datos aleatorios. Ve a la Entero pestaña, tipo 1 in Desde caja, tipo 49 in A casilla, marque la Valores únicos opción, y haga clic en OK botón. Ahora verá que se generan 6 números de lotería únicos y se muestran en las celdas seleccionadas inmediatamente.

Seleccione celdas aleatoriamente según los criterios en Excel

Agregue aleatoriamente color de fondo / relleno para celdas en Excel