listing all possible combinations from a list of names

[BrennanB]

We are not proficient at Macros and wanted to see if there is a formula for one row or column of 12 names that we can extract every combination of 3 unique names
I know this may be a simple task for many but we cannot figure out how to extract all possible combinations of 3 names given 12 names
thank you for any insight you can provide

 

[Mike LH]

Hi,

Put your names in column A and try this code, there are 220 combinations of 3 from 12 and this will put them in column B

EDIT...I should have added, there may be a formula but I can't imagine what form it might take.

Sub combinations()
Dim Last As Long, i As Long, j As Long
Dim k As Long, L As Long
Last = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To Last - 2
        For j = i + 1 To Last - 1
            For k = j + 1 To Last
                Cells(L + 1, 2) = Cells(i, 1) & ", " & Cells(j, 1) & ", " & Cells(k, 1)
                L = L + 1
            Next
        Next
    Next
 End Sub

 

[BrennanB]

Hi,

Put your names in column A and try this code, there are 220 combinations of 3 from 12 and this will put them in column B

EDIT...I should have added, there may be a formula but I can't imagine what form it might take.

Sub combinations()
Dim Last As Long, i As Long, j As Long
Dim k As Long, L As Long
Last = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To Last - 2
        For j = i + 1 To Last - 1
            For k = j + 1 To Last
                Cells(L + 1, 2) = Cells(i, 1) & ", " & Cells(j, 1) & ", " & Cells(k, 1)
                L = L + 1
            Next
        Next
    Next
 End Sub

This worked perfectly ! Thank you !!!!!