VBA realiza permutaciones y combinaciones, ¡por favor, ruégueme! ! !

Utilice las siguientes macros y coloque los resultados del cálculo en la nueva Hoja Sub?group_by_zzllrr()

Dim?a, ?m, ?n, ?ii, ?d

Establecer?a?=?ActiveSheet

m?=?Split("1?2?3?4?5?6?7?8?9?10?11?12?1 ? 2",?"?")

Hojas.Agregar?Después:=Hojas(Hojas.Count)

Rango("A1:C1")?=?Array(" Grupo ",?"Grado requerido","Suma de valor máximo")

Para?i?=?0?A?2

Para?j?=?0?A ?3

n1?=?m(i? ?3?*?j)

n2?=?m(i? ?3?*?j? ?1)

n3?=?m(i? ?3?*?j? ?2)

ii?=?2?

Rango("A"?amp;?ii)?=?n1?amp;?"?"?amp;?n2?amp;?"?"?amp;?n3

s ?=?0

d?=?0

Para?k?=?0?A?90

t?=?a.Celdas(k ?2, ?n1? ?1)? ?a.Celdas(k? ?2, ?n2? ?1)? >Si?t?gt;?s?Entonces

s?=?t

d?=?k

Fin?Si

Siguiente?k

Rango("B"?amp;?ii)?=?d

Rango("C"?amp;?ii)?=?s

¿Siguiente?j

¿Siguiente?i

Fin?Sub