Wie kann ich kartesische Produkte wie Spalten in Excel erhalten? - Hervorragend

Ich habe 2 Spalten:

Col1    Col2
1       A
2       B
3       C

Und was ich brauche, sind alle möglichen Kombinationen dieser Spalten in neue Spalten mit nur Excel. Ist das möglich? Ich habe keine Erfahrung mit Excel.

Erwartetes Ergebnis:

Col3 Col4 Col5 Col6 Col7 Col8
1   A     2    A   3    A
1   B     2    B   3    B
1   C     2    C   3    C

Danke im Voraus!

Antworten:

1 für die Antwort № 1

Hier sind ein paar Hinweise zu einer Möglichkeit.

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& ThisWorkbook.FullName _
& ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

""Late binding, so no reference is needed

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set rs2 = CreateObject("ADODB.Recordset")

cn.Open strCon


strsql = "SELECT * " _
& "FROM [Sheet2$a:a]"

rs2.Open strsql, cn, 3, 3

i = 1
Do While Not rs2.EOF
strsql = "SELECT * " _
& "FROM [Sheet2$a:a] a, " _
& "[Sheet2$b:b] b " _
& "WHERE Col1 = " & rs2!Col1

rs.Open strsql, cn, 3, 3

""Pick a suitable empty worksheet for the results
Worksheets("Sheet3").Cells(2, i).CopyFromRecordset rs

i = i + rs.fields.Count

rs2.movenext
rs.Close
Loop

""Tidy up
Set rs = Nothing
rs2.Close
Set rs2 = Nothing
cn.Close
Set cn = Nothing