All possible permutation/combinations

[Dr. Demento]

Good morning!

Forgive me, but I don't remember the difference between permutations and combinations, so hopefully my explanation points in the proper direction.

I have two ordered lists (NORTH|SOUTH|EAST|WEST) and (N|S|E|W) and I want to make a listing of all permutations/combinations?? substituting N for NORTH, S for SOUTH, etc. The order of the values is fixed as shown.

For example, if I start with the first row, I want all possible perms/combos with both the full word and the abbreviation, as shown with the next four lines.

|-------|-------|-------|-------|
| NORTH | SOUTH | EAST | WEST |
|-------|-------|-------|-------|
| N | SOUTH | EAST | WEST |
|-------|-------|-------|-------|
| N | S | EAST | WEST |
|-------|-------|-------|-------|
| N | S | E | WEST |
|-------|-------|-------|-------|
| N | S | E | W |
|-------|-------|-------|-------|

This is just a partial example; I was trying to manually jam this out and kept getting screwed up.

Any help would be much appreciated.

Thanks y'all.

 

[Fluff]

How about

Sub DrDemento()
   Dim r As Long, c As Long
   Dim a As Variant, b As Variant, Ary As Variant
   
   Ary = Array(Array("North", "East", "South", "West"), Array("N", "E", "S", "W"))
   r = 2
   c = 4
   a = Evaluate("if({1},mid(base(transpose(row(1:" & r ^ c & ")-1)," & r & "," & c & "),row(1:" & c & "),1)+1)")
   b = Application.Index(Ary, Application.Transpose(a), Array(1, 2, 3, 4))
   Range("A5").Resize(UBound(b), UBound(b, 2)).Value = b
End Sub

 

[Dr. Demento]

Thanks so much! That's awesome!!

 

[Fluff]

Glad we could help & thanks for the feedback.