Generate all possible outcomes

One way:

Option Explicit

Sub sGenerateCombinations()
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim lRowA As Long
Dim lRowB As Long
Dim lRowC As Long
Dim awf As WorksheetFunction: Set awf = WorksheetFunction

lRowA = Range("A" & Rows.Count).End(xlUp).Row
lRowB = Range("B" & Rows.Count).End(xlUp).Row
lRowC = Range("C" & Rows.Count).End(xlUp).Row

Application.ScreenUpdating = False
l = 0
For i = 1 To lRowA
    For j = 1 To lRowB
        For k = 1 To lRowC
            l = l + 1
            With Range("D" & l)
                .NumberFormat = "@"
                .Value = _
                    awf.Text(Range("A" & i).Text, "00") & _
                    Range("B" & j).Text & _
                    awf.Text(Range("C" & k).Text, "00")
            End With
        Next
    Next
Next
Application.ScreenUpdating = True
End Sub

Regards, TMS

You're welcome. Thanks for the rep.


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


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.

Re: your PM, to add points/dots between the elements:

            With Range("D" & l)
                .NumberFormat = "@"
                .Value = _
                    awf.Text(Range("A" & i).Text, "00") & "." & _
                    Range("B" & j).Text & "." & _
                    awf.Text(Range("C" & k).Text, "00")
            End With

Regards, TMS

There's a workbook with both VBA- and formula-based methods for doing this, for any number of columns, at https://www.box.com/s/47b28f19d794b25511be