Attempting to combine multiple fields(columns) into all possible permutations

**pm079** · 11-12-2012, 01:02 PM

Label combinations.xlsx

I'm attempting to create a batch of nearly 600 labels from 5 fields. The excel sheet I've attached has the fields at the top inside the border and the cells below are the beginning of the list of combinations in the format I need them. Is there any way I can automate this process?

Thanks in advance!

**Jakobshavn** · 11-12-2012, 01:50 PM

Try this small macro:

Sub CombinMaker()
Dim K As Long
K = 9
For i1 = 1 To 3
v1 = Cells(i1, 1).Value
For i2 = 1 To 6
v2 = Cells(i2, 2).Value
For i3 = 1 To 4
v3 = Cells(i3, 3).Value
For i4 = 1 To 2
v4 = Cells(i4, 4).Value
For i5 = 1 To 2
v5 = Cells(i4, 5).Value
Cells(K, 1) = v1
Cells(K, 2) = v2 & " " & v3
Cells(K, 3) = v4 & " - " & v5
K = K + 1
Next
Next
Next
Next
Next
End Sub

It will fill rows 9 thru 296 with the combinations.

Macros are very easy to install and use:

1. ALT-F11 brings up the VBE window
2. ALT-I

ALT-M opens a fresh module

3. paste the stuff in and close the VBE window

If you save the workbook, the macro will be saved with it.

To remove the macro:

1. bring up the VBE window as above
2. clear the code out
3. close the VBE window

To use the macro from Excel:

1. ALT-F8
2. Select the macro
3. Touch RUN

To learn more about macros in general, see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

Macros must be enabled for this to work!