Excel/VBA/MS Query to create every possible combination of a Range - database

Question

I have a problem for which I haven't been able to find a solution.
I have a spreadsheet with 5 -> 10? columns of data. All of them different, but some columns are related to each other (If A3=1, then B3=A and C3=a). Each column contains 3 -> 6 variations of a parameters and I need to create all the possible combinations of them..
Initial data in columns:
Expected result:
Kelvin had almost similar problem previously, but that didn't work for me..

Answer 1

You can do that using SQL with an cross join. Below is a small example I made and tested. You will have to adapt it to your needs. In my example, test1 and test3 are the column names, in the first row of sheet1.
Sub SQLCombineExample()
Dim con
Dim rs
Set con = CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
"DriverId=790;" & _
"Dbq=" & ThisWorkbook.FullName & ";" & _
"DefaultDir=" & ThisWorkbook.FullName & ";ReadOnly=False;"
Set rs = CreateObject("ADODB.Recordset")
Set rs = con.Execute("select distinct a.[test1], b.[test3] from [Sheet1$] as a , [Sheet1$] as b ")
Range("f1").CopyFromRecordset rs
Set rs = Nothing
Set con = Nothing
End Sub

Answer 2

From what i see in your pictures, the only item which can change combination is the one in column 4:
(1 ; A ; a ; item4 ; #¤), (2 ; B ; b ; item4 ; &#¤) and (3 ; C ; c ; item4 ; ¤%&)
If this is indeed what your are trying to do the following code should work:
Sub Combination()
Dim i As Integer, j As Integer, k As Integer
For k = 0 To 2 'loop through (1 A a #¤), (2 B b &#¤) and (3 C c ¤%&)
j = 3 'column 4 items
For i = 0 To 6 Step (3) 'loop 3 by 3 (output starts in row 10)
Cells(10 + k + i, 1) = Cells(3 + k, 1)
Cells(10 + k + i, 2) = Cells(3 + k, 2)
Cells(10 + k + i, 3) = Cells(3 + k, 3)
Cells(10 + k + i, 5) = Cells(3 + k, 5)
Cells(10 + k + i, 4) = Cells(j, 4)
j = j + 1
Next i
Next k
End Sub

Answer 3

Sub CopyAllCombinationsToRange()
Dim arSource
Dim arResult
Dim i As Long, j As Long, combinationCount As Long, counter As Long
arSource = Range(Cells(2, 1), Cells(Rows.Count, 5).End(xlUp)).Value
combinationCount = UBound(arSource, 2) * UBound(arSource, 2)
ReDim arResult(4, combinationCount - 1)
For i = 1 To UBound(arSource, 1)
For j = 1 To UBound(arSource, 1)
arResult(0, counter) = arSource(i, 1)
arResult(1, counter) = arSource(i, 2)
arResult(2, counter) = arSource(i, 3)
arResult(3, counter) = arSource(i, 4)
arResult(4, counter) = arSource(j, 5)
counter = counter + 1
Next
Next
Sheet2.Range("A1").Resize(UBound(arResult, 2), 5) = WorksheetFunction.Transpose(arResult)
End Sub
Example