Combinations Sequence

[Paul Black]

Hi,

I would like to be able to list all the sequences of numbers using six
criteria.
The easiest way to explain it would be to say there are six jars, with
each jar containing anything from 1 to 10 counters.
Ideally I would like a list of all the sequences. So for example ...

10 09 07 03 02 05
10 08 07 05 01 09
01 03 08 10 04 10

... etc.

If it helps, I could put the actual counters that are in each jar in
cells A1:F1.
I know that the list will be quite long depending of the number of
counters in each jar.
The first combination would go in cells A3:F3, the second in cells
A4:F4 etc, etc.

Thanks in Advance.
All the Best
Paul

 

[Gary''s Student]

Can there be repeats??

is:

10 09 07 03 09 05

a valid sequence??

 

[James Snell]

It's do-able, but anyone programming would need to know what rules you're
working to... A few of my initial questions -

Do the numbers need to be randomized as they appear in your post?

Can a number appear twice in a set (ie 10 10 09 08 07 06)?

Is [10 09 08 07 06 05] the same as [05 06 07 08 09 10]?

You're generating more data there than excel (2003 + previous at least) can
hold in one column. Are you using excel 2007 or do you need multiple sets?

 

[Mike H]

If each of the 6 pots contained the numbers 1 - 10 then perming 6 from 60
gives > 36 billion permutations and I'm sure you don't that. Please clarify.

Mike

 

[Paul Black]

Thanks everyone for the replies.

Gary''s Student,
Yes, 10 09 07 03 09 05 is a valid sequence of numbers.
All of the numbers in the six sets could possibly be the same to start
with, i.e. 10 10 10 10 10 10.
I am only interested in the combinations and not the permutations.

Thanks in Advance.
All the Best.
Paul

 

[Gary''s Student]

Run this macro. It will make a CSV file that can be imported into Excel:

Sub CreateAfile()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\combins.csv", True)
For i = 1 To 10
For j = 1 To 10
For k = 1 To 10
For l = 1 To 10
For m = 1 To 10
For n = 1 To 10
v = i & "," & j & "," & k & "," & l & "," & m & "," & n
a.WriteLine (v)
Next
Next
Next
Next
Next
Next
a.Close
End Sub