Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub ListAllCombinations()
- 'Updateby Extendoffice
- Dim xDRg1, xDRg2, xDRg3 As Range
- Dim xRg As Range
- Dim xStr As String
- Dim xFN1, xFN2, xFN3 As Integer
- Dim xSV1, xSV2, xSV3 As String
- Set xDRg1 = Range("A1:A7") 'First column data
- Set xDRg2 = Range("B1:B3") 'Second column data
- Set xDRg3 = Range("C1:C4") 'Third column data
- xStr = "-" 'Separator
- Set xRg = Range("I1") 'Output cell
- Set xRg2 = Range("J1") 'Output cell
- Set xRg3 = Range("K1") 'Output cell
- For xFN1 = 1 To xDRg1.Count
- xSV1 = xDRg1.Item(xFN1).Text
- For xFN2 = 1 To xDRg2.Count
- xSV2 = xDRg2.Item(xFN2).Text
- For xFN3 = 1 To xDRg3.Count
- xSV3 = xDRg3.Item(xFN3).Text
- xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3
- xRg2.Value = xSV1 & xStr & xSV2 & xStr & xSV3
- xRg3.Value = xSV1 & xStr & xSV2 & xStr & xSV3
- Set xRg = xRg.Offset(1, 0)
- Set xRg2 = xRg2.Offset(1, 0)
- Set xRg3 = xRg3.Offset(1, 0)
- Next
- Next
- Next
- Cells(11, 1).Value = Split(Range("I1").Value, "-")(0)
- Set xDRg42 = Range("I1:I84")
- For xFN1 = 1 To xDRg42.Count
- Text = Split(xDRg42.Item(xFN1).Text, "-")(0)
- xDRg42.Item(xFN1).Value = Text
- Next
- Set xDRg42 = Range("J1:J84")
- For xFN1 = 1 To xDRg42.Count
- Text = Split(xDRg42.Item(xFN1).Text, "-")(1)
- xDRg42.Item(xFN1).Value = Text
- Next
- Set xDRg42 = Range("K1:K84")
- For xFN1 = 1 To xDRg42.Count
- Text = Split(xDRg42.Item(xFN1).Text, "-")(2)
- xDRg42.Item(xFN1).Value = Text
- Next
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement