मैं एक्सेल में कॉलम जैसे कार्टेशियन उत्पाद कैसे प्राप्त कर सकता हूं? - एक्सेल

मेरे पास 2 कॉलम हैं:

Col1    Col2
1       A
2       B
3       C

और मुझे केवल उन एक्सेल का उपयोग करके उन स्तंभों के सभी संभावित संयोजनों को नए कॉलम में प्राप्त करने की आवश्यकता है। क्या यह संभव है? मैं एक्सेल का उपयोग कर अनुभव नहीं कर रहा हूँ।

अपेक्षित परिणाम:

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

अग्रिम में धन्यवाद!

उत्तर:

उत्तर № 1 के लिए 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

संबंधित सवाल
सबसे लोकप्रिय