Cómo hacer que Excel organice y combine automáticamente

Usa vba para implementar

Organiza y combina automáticamente, genera el número de columnas para la permutación y combinación, ingresa manualmente

y luego genera datos para cada columna A partir de la segunda fila y la primera columna, los números de datos en cada columna no se repiten y el número es aleatorio.

El código de implementación es el siguiente: Sub? Button 1_Click()

Application.ScreenUpdating?=?False

ActiveSheet.UsedRange.ClearContents?'Clear the table

a?=?InputBox("Ingrese el número de columnas para generar la secuencia")?'Solicitud para ingresar el número de columnas

Set?d?=?CreateObject ("scripting.dictionary")?'Diccionario Eliminar duplicados

If?VBA.IsNumeric(a)?Then?' Determinar si la entrada es un valor numérico, si no, salir del programa

¿Aleatorizar?'Inicializar números aleatorios

For?j?=?1?To?Int(a)?'Generar un número aleatorio del número de columna de entrada

b? =?Int(Rnd?*?99999)?Mod?10?+ ?1?'?El número de números aleatorios generados en cada columna

d.RemoveAll

l2:

If?d.Count?<>?b?Then ?'Generar números aleatorios

d(Int(Rnd?*?99999)?Mod?10)?=?""

Ir a?l2

Fin ?If

Celdas(2,?j).Resize(d.Count)?=?WorksheetFunction.Transpose(d. claves)?' Almacenar números aleatorios en las columnas correspondientes

Siguiente?j

Else

MsgBox?"Por favor, ingrese un valor"

Ir a?l1

Fin?Si

l1:

Application.ScreenUpdating?=?True

Fin?Sub

Efecto de ejecución del programa: