ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   how can i get a list of combinations? (https://www.excelbanter.com/excel-discussion-misc-queries/214637-how-can-i-get-list-combinations.html)

Pastor Pudge

how can i get a list of combinations?
 
I would like to use excel to come up with a list of all combinations of 3,
from a list of 5 items. so for the 5 items, I am looking for all possible
combinations of 3. any ideas of how excel could help me with this so I don't
have to figure it out?

Thanks and Merry Christmas.

Mike H[_3_]

how can i get a list of combinations?
 
On Dec 26, 7:21*am, Pastor Pudge <Pastor
wrote:
I would like to use excel to come up with a list of all combinations of 3,
from a list of 5 items. *so for the 5 items, I am looking for all possible
combinations of 3. *any ideas of how excel could help me with this so I don't
have to figure it out?

Thanks and Merry Christmas.


Hi,

This will wotk for any number of elements. It takes imput from column
A on sheet 1 and outputs to sheet 2.

Sub ComBinAtions()
Dim MyRange As Range
Dim OutPutSheet As Worksheet
Dim a As Long, b As Long, c As Long
Dim Elements As Long
lastrow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
Set MyRange = Sheet1.Range("A1:A" & lastrow)
Set OutPutSheet = Sheet2
Elements = MyRange.Cells.Count
For a = 1 To Elements - 2
For b = a + 1 To Elements - 1
For c = b + 1 To Elements
OutPutSheet.Cells(Rows.Count, 1).End(xlUp)(2, 1).Value = _
MyRange(a) & ", " & MyRange(b) & ", " & MyRange(c)
Next c
Next b
Next a
End Sub

Mike


All times are GMT +1. The time now is 11:24 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com