text combinations

[Guest]

Excel XP, Windows 2000

I've searched through the group but don't see what I'm looking for.

I have two groups of 4-character text strings. Each group has five
different strings. I need to find out the possible combinations of one from
group A and one from group B.

Example:

Group A: KMNN,KONN,RGNN,RONN,OONN
Group B: KDNN,OPNN,OQNN,OTNN,WDNN

One combination would be KMNN with KDNN. Another would be KMNN with OTNN,
and a third would be RGNN with OTNN.

How can I come up with a list of all possible combinations?

Thanks for your help.

Allison

 

[Mike Fogleman]

Are the 5 strings all in one cell separated by commas or each string in its'
own cell from column A to E, or A1 to A5?

Mike F

 

[Tom Ogilvy]

Sub GenCombo()
Dim varr1 as Variant, varr2 as Variant
Dim rw as Long, i as long, j as long
varr1 = Array("KMNN","KONN","RGNN","RONN","OONN")
varr2 = Array("KDNN","OPNN","OQNN","OTNN","WDNN")
rw = 1
for i = lbound(varr1) to ubound(varr1)
for j = lbound(varr2) to ubound(varr2)
cells(rw,1).Value = varr1(i)
cells(rw,2).Value = varr2(i)
rw = rw + 1
Next
Next
End sub

 

[Guest]

They are each in separate cells, colums A to E.

Thanks!

 

[Guest]

Thanks Tom; worked great!

Allison

Sub GenCombo()
Dim varr1 as Variant, varr2 as Variant
Dim rw as Long, i as long, j as long
varr1 = Array("KMNN","KONN","RGNN","RONN","OONN")
varr2 = Array("KDNN","OPNN","OQNN","OTNN","WDNN")
rw = 1
for i = lbound(varr1) to ubound(varr1)
for j = lbound(varr2) to ubound(varr2)
cells(rw,1).Value = varr1(i)
cells(rw,2).Value = varr2(i)
rw = rw + 1
Next
Next
End sub

 

[Guest]

Oops, I replied before I double-checked the figures.

This doesn't quite work right. It lists each text string five times in a
row, then goes to the next string.

Which works for one column, but the second should do one of each and then
repeat that sequence again.

The way it works it lists the same variant (i.e., KMNN/KDNN) five times in a
row, then another variant (KONN/OPNN) five times in a row.

Thanks anyway.

 

[Guest]

I played around with this, and by changing the "i" in this:

cells(rw,2).Value = varr2(i)

to "j", it worked like a charm.

Thanks!

Allison

 

[Tom Ogilvy]

My typo - sorry for the confusion.