Permutaciones de cuatro Digitos

[MarioVePe]

Navegando en el foro encontré que uno de los miembros publico un macro que podemos pegar en excel, este sirve para obtener los resultados posibles de 2 columnas...
Pero yo necesito modificarlo para que me de la cobinacion de 4 columnas.
Alguien me puede ayudar...



Sub ComoSeaQueSeLlame()
Dim ii As Long, jj As Long
Application.ScreenUpdating = False
[d2:e65536].Delete xlShiftUp
For ii = 1 To [a65536].End(xlUp).Row
For jj = 1 To [b65536].End(xlUp).Row
[d65536].End(xlUp).Offset(1) = Cells(ii, "a")
[d65536].End(xlUp).Offset(, 1) = Cells(jj, "b")
Next jj
Next ii
Application.ScreenUpdating = True
End Sub

Gracias...
o si ustedes pueden ayudarme de alguna otra manera????
Ejemplo
Las permutaciones que se pueden haer entre

20 20 20 20
21 21 21 21
22 22 22 22
23 23 23 23
24 24 24 24

..
Gracias!!!

[mrocf]

Hola! MarioVePe
La verdad es que tu descripción provoca alguna desorientación.

En efecto: en el título hablas de permutaciones de 4 dígitos mientras que en el cuerpo de la consulta hablas de combinación... y, ciertamente: ¡No es lo mismo!.

Te sugeriría que prepares y muestres un ejemplo concreto que sirva de guía para poder ayudarte (ejemplo concreto es mostrar un archivo excel donde expongas un ejemplo completo).

Saludos, Cacho R.