如何在excel中獲得像列一樣的笛卡爾產品？

Question

我有2列：

Col1 Col2 
    1  A 
    2  B 
    3  C 

什麼我需要得到的是隻使用Excel的這些列的所有可能組合成新列。那可能嗎？我沒有經驗使用Excel。

預期結果：

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

在此先感謝！

Answer 1

以下是關於一種可能性的一些注意事項。

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