Need to generate 3-character words from 3 columns

[tmccar]

I have 3 columns of characters - 44, 14 and 26 characters. How can I generate all 16016 possible word combinations of the characters in a new column?

[TMS]

something like:

l = 1
for i = 1 to 44
   for j= 1 to 14
      for k = 1 to 26
         Range("D" & l) = Range("A" & i) & Range("B" & j) & Range("C" & k)
         l = l + 1
      next 'k
   next 'j
next 'i

Regards, TMS

[tmccar]

Thanks TM.
Pardon my ignorance, but how do I run this? I know that Alt-F11 brings up the VBA editor, but what should I do then?

[TMS]

Type Sub and a subroutine name, and press Enter. Copy and paste the code between the Sub and End Sub. Press F5 to run it.

Sub MakeWords()
l = 1
for i = 1 to 44
   for j= 1 to 14
      for k = 1 to 26
         Range("D" & l) = Range("A" & i) & Range("B" & j) & Range("C" & k)
         l = l + 1
      next 'k
   next 'j
next 'i
End Sub

Regards, TMS

[tmccar]

That works great, thanks

[tmccar]

Yes, I was getting that first but it's OK now. I didn't mean to attach it, sorry.

[TMS]

Why the picture? You press F5 in the VB Editor, not on the worksheet.

Or, in Excel, select and run the macro from the menu.

Regards, TMS

[TMS]

If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save