¿Cómo generar números de lotería en Excel?

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

1. En una hoja de cálculo en blanco, escribe los encabezados de columna en el Rango A1:C1 como se muestra en la captura de pantalla a continuación:

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

(1) En la Celda A2, introduce la fórmula =ALEATORIO(), y luego arrastra el controlador de relleno hasta el rango A2:A50.
(2) En la Celda B2, introduce la fórmula =RANGO($A2,$A$2:$A$50)+CONTAR.SI(B$1:B1,B1)-1, y luego arrastra el controlador de relleno hasta el Rango B2:B50. (En la fórmula, A2 es el número aleatorio a la izquierda de 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 sobre la celda actual).
(3) En el Rango C2:C50, introduce números de secuencia del 1 al 49.

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

 

¿La fórmula es demasiado complicada de recordar? ¡Guarda la fórmula como una entrada de Autotexto para reutilizarla con un solo clic en el futuro! Leer más…     Prueba gratuita

3. Encuentra un rango en blanco, escribe números de secuencia horizontalmente en una fila como se muestra en la captura de pantalla a continuación:

4. Debajo del primer número de secuencia de 1, introduce la fórmula =BUSCARV(G1,$B$1:$C$50,2,FALSO) en ella, y luego arrastra el controlador de relleno hasta el Rango que necesites.

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 encontrar valores en la segunda columna del Rango $B$1:$C$50.

Luego obtendrás los números de lotería como se muestra en la captura de pantalla a continuación:

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

Si tienes instalado Kutools para Excel, su utilidad Insertar Datos Aleatorios puede ayudarte a generar números de lotería en Excel de inmediato.

1. Selecciona 6 celdas adyacentes, como A1:F1, y luego haz clic en Kutools > Insertar > Insertar Datos Aleatorios.

2. Ahora aparece el cuadro de diálogo Insertar Datos Aleatorios. Ve a la pestaña Entero pestaña, escribe 1 en Desde caja, escribe 49 en Hasta caja, marca la opción Generar valores únicos opción, y haz clic en el botón Aceptar Ahora verás que se generan y muestran 6 números de lotería únicos en las celdas seleccionadas de inmediato.

Este método te guiará para aplicar una macro VBA para generar números de lotería en Excel. Por favor, sigue los siguientes pasos:

1. Presiona Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo para abrir una nueva ventana de módulo, y pega 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. Presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar esta macro VBA.

4. Ahora, en el cuadro de diálogo emergente, especifica una celda para mostrar los números de lotería, y haz clic en el botón Aceptar botón.

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

Selección aleatoria de celdas basada en criterios en Excel

Agregar color de fondo/relleno aleatoriamente para celdas en Excel