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
--
Gary''s Student - gsnu200781
"Paul Black" wrote:
> 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
>
|