¿Cómo implementar permutaciones y combinaciones en Excel?

Utilice VBA para resolver el problema. Abra el editor VBA con ALT F11, inserte el módulo, pegue el siguiente código y presione F5 para ejecutar. La columna C es el resultado de "one:" y la columna D. es el resultado de "dos:".

Sub sort()

Atenuar i, j, k1, k2, k3, k4, m como entero

Hoja1.Activar

Rango("C：C").Borrar

i = Rango("a65535").End(xlUp).Row

j = Rango("b65535").End (xlUp).Row

m = 1

Para k1 = 1 A i Para k2 = 1 A j

Para k3 = k2 1 A j

Celdas(m, 3) = Celdas(k1, 1) y Celdas(k2, 2) y Celdas(k3, 2)

m = m 1

Siguiente Siguiente

Siguiente

Rango("D:D").Borrar

m = 1

Para k1 = 1 A i Para k2 = 1 A j

Para k3 = k2 1 A j

Para k4 = k3 1 A j

Celdas (m, 4) = Celdas(k1, 1) y Celdas(k2, 2) y Celdas(k3, 2) y Celdas(k4, 2)

? Siguiente

Siguiente Siguiente

Siguiente

Fin Sub