मुख्य सामग्री पर जाएं

एक्सेल में सभी संभावित संयोजनों को कैसे सूचीबद्ध करें या उत्पन्न करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2022-07-20

मान लीजिए, मेरे पास डेटा के निम्नलिखित दो कॉलम हैं, और अब, मैं बाएं स्क्रीनशॉट में दिखाए गए मानों की दो सूचियों के आधार पर सभी संभावित संयोजनों की एक सूची तैयार करना चाहता हूं। हो सकता है, यदि कुछ मान हों तो आप सभी संयोजनों को एक-एक करके सूचीबद्ध कर सकते हैं, लेकिन, यदि संभावित संयोजनों को सूचीबद्ध करने के लिए एकाधिक मानों वाले कई कॉलम हैं, तो यहां कुछ त्वरित तरकीबें दी गई हैं जो एक्सेल में इस समस्या से निपटने में आपकी मदद कर सकती हैं। .

सूत्र के साथ दो सूचियों से सभी संभावित संयोजनों को सूचीबद्ध करें या उत्पन्न करें

VBA कोड के साथ तीन या अधिक सूचियों से सभी संभावित संयोजनों को सूचीबद्ध करें या उत्पन्न करें

एक शक्तिशाली सुविधा के साथ एकाधिक सूचियों से सभी संभावित संयोजनों को सूचीबद्ध करें या उत्पन्न करें

सूत्र के साथ दो सूचियों से सभी संभावित संयोजनों को सूचीबद्ध करें या उत्पन्न करें

निम्नलिखित लंबा सूत्र आपको दो सूचियों के मानों के सभी संभावित संयोजनों को शीघ्रता से सूचीबद्ध करने में मदद कर सकता है, कृपया निम्नानुसार कार्य करें:

1. नीचे दिए गए फॉर्मूले को एक रिक्त सेल में दर्ज करें या कॉपी करें, इस स्थिति में, मैं इसे सेल D2 में दर्ज करूंगा, और फिर दबाऊंगा दर्ज परिणाम प्राप्त करने के लिए कुंजी, स्क्रीनशॉट देखें:

=IF(ROW()-ROW($D$2)+1>COUNTA($A$2:$A$5)*COUNTA($B$2:$B$4),"",INDEX($A$2:$A$5,INT((ROW()-ROW($D$2))/COUNTA($B$2:$B$4)+1))&"-"&INDEX($B$2:$B$4,MOD(ROW()-ROW($D$2),COUNTA($B$2:$B$4))+1))

नोट: उपरोक्त सूत्र में, $ए$2:$ए$5 पहले कॉलम मानों की सीमा है, और $बी$2:$बी$4 दूसरी सूची मानों की श्रेणी है जिसके सभी संभावित संयोजनों को आप सूचीबद्ध करना चाहते हैं $D$2 वह सेल है जिसमें आप सूत्र डालते हैं, आप अपनी आवश्यकता के अनुसार सेल संदर्भ बदल सकते हैं।

2. फिर सेल D2 का चयन करें और रिक्त सेल प्राप्त होने तक भरण हैंडल को नीचे की ओर खींचें और सभी संभावित संयोजनों को दो सूचियों के मानों के आधार पर सूचीबद्ध किया गया है। स्क्रीनशॉट देखें:

VBA कोड के साथ तीन या अधिक सूचियों से सभी संभावित संयोजनों को सूचीबद्ध करें या उत्पन्न करें

हो सकता है कि उपरोक्त सूत्र को लागू करना आपके लिए कुछ कठिन हो, यदि कई कॉलम डेटा हैं, तो इसे संशोधित करना परेशानी भरा होगा। यहां, मैं इससे शीघ्रता से निपटने के लिए एक वीबीए कोड पेश करूंगा।

1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: 3 या एकाधिक कॉलम के सभी संयोजन उत्पन्न करें

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("A2:A5")  'First column data
Set xDRg2 = Range("B2:B4")  'Second column data
Set xDRg3 = Range("C2:C4")  'Third column data
xStr = "-"   'Separator
Set xRg = Range("E2")  '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
        Set xRg = xRg.Offset(1, 0)
       Next
    Next
Next
End Sub
नोट: उपरोक्त कोड में, A2: A5, B2: B4, सी2:सी4 वह डेटा श्रेणी है जिसका आप उपयोग करना चाहते हैं, E2 वह आउटपुट सेल है जिसके परिणाम आप खोजना चाहते हैं। यदि आप अधिक कॉलम के सभी संयोजन प्राप्त करना चाहते हैं, तो कृपया अपनी आवश्यकता के अनुसार कोड में अन्य पैरामीटर बदलें और जोड़ें।

3. फिर, दबाएं F5 इस कोड को चलाने के लिए कुंजी, और 3 कॉलम के सभी संयोजन एक ही बार में जेनरेट किए जाएंगे, स्क्रीनशॉट देखें:

एक शक्तिशाली सुविधा के साथ एकाधिक सूचियों से सभी संभावित संयोजनों को सूचीबद्ध करें या उत्पन्न करें

यदि कई सूचियाँ हैं, तो संभावित संयोजनों को सूचीबद्ध करने की आवश्यकता है, हो सकता है कि आपके लिए कोड को संशोधित करना मुश्किल हो। यहां, मैं एक शक्तिशाली उपकरण की अनुशंसा कर सकता हूं -- एक्सेल के लिए कुटूल, इसमें एक उपयोगी सुविधा शामिल है सभी संयोजनों की सूची बनाएं जो दी गई डेटा सूचियों के आधार पर सभी संभावित संयोजनों को तुरंत सूचीबद्ध कर सकता है।

टिप्स:इसे लागू करने के लिए सभी संयोजनों की सूची बनाएं सुविधा, सबसे पहले, आपको डाउनलोड करना चाहिए एक्सेल के लिए कुटूल, और फिर सुविधा को जल्दी और आसानी से लागू करें।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1. क्लिक करें कुटूल > सम्मिलित करें > सभी संयोजनों की सूची बनाएं, स्क्रीनशॉट देखें:

2. में सभी संयोजनों की सूची बनाएं संवाद बॉक्स में, नीचे दिखाए गए डेमो के अनुसार कार्रवाई करें:

3. फिर सभी निर्दिष्ट मान और विभाजक संवाद बॉक्स में सूचीबद्ध किए गए हैं, स्क्रीनशॉट देखें:

4.और फिर क्लिक करें Ok बटन, और परिणाम आउटपुट करने के लिए एक सेल का चयन करने की याद दिलाने के लिए एक प्रॉम्प्ट बॉक्स पॉप आउट हो जाएगा, स्क्रीनशॉट देखें:

5। क्लिक करें OK, दी गई सूचियों के आधार पर सभी संभावित संयोजन निम्न स्क्रीनशॉट के अनुसार वर्कशीट में तैयार किए गए हैं:

एक्सेल के लिए कुटूल अभी डाउनलोड करने के लिए क्लिक करें!

अधिक संबंधित लेख:

  • 3 या एकाधिक कॉलम के सभी संयोजन उत्पन्न करें
  • मान लीजिए, मेरे पास डेटा के 3 कॉलम हैं, अब, मैं इन 3 कॉलमों में डेटा के सभी संयोजनों को उत्पन्न या सूचीबद्ध करना चाहता हूं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। क्या आपके पास एक्सेल में इस कार्य को हल करने के लिए कोई अच्छा तरीका है?
  • दिए गए योग के बराबर सभी संयोजन खोजें
  • उदाहरण के लिए, मेरे पास संख्याओं की निम्नलिखित सूची है, और अब, मैं जानना चाहता हूं कि सूची में संख्याओं के किस संयोजन का योग 480 है, दिखाए गए निम्नलिखित स्क्रीनशॉट में, आप देख सकते हैं कि संभावित संयोजनों के पांच समूह हैं जिनका योग बराबर है से 480, जैसे 300+60+120, 300+60+40+80, आदि। इस लेख में, मैं यह पता लगाने के लिए कुछ तरीकों के बारे में बात करूंगा कि एक्सेल में कौन से सेल एक विशिष्ट मान तक पहुंचते हैं।
  • सभी संभावित क्रमपरिवर्तन उत्पन्न करें या सूचीबद्ध करें
  • उदाहरण के लिए, मेरे पास तीन अक्षर XYZ हैं, अब, मैं छह अलग-अलग परिणाम प्राप्त करने के लिए इन तीन अक्षरों के आधार पर सभी संभावित क्रमपरिवर्तन सूचीबद्ध करना चाहता हूं: XYZ, XZY, YXZ, YZX, ZXY और ZYX। एक्सेल में, आप विभिन्न वर्णों की संख्या के आधार पर सभी क्रमपरिवर्तनों को शीघ्रता से कैसे उत्पन्न या सूचीबद्ध कर सकते हैं?
  • सभी संभावित 4 अंकों के संयोजनों की एक सूची तैयार करें
  • कुछ मामलों में, हमें संख्या 4 से 0 के सभी संभावित 9 अंकों के संयोजनों की एक सूची तैयार करने की आवश्यकता हो सकती है, जिसका अर्थ है 0000, 0001, 0002…9999 की सूची तैयार करना। एक्सेल में सूची कार्य को शीघ्रता से हल करने के लिए, मैं आपके लिए कुछ युक्तियाँ प्रस्तुत करता हूँ।

 

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

 

Comments (42)
Rated 5 out of 5 · 1 ratings
Guilherme Johansson
Guilherme Johansson
This comment was minimized by the moderator on the site
como que poderia gerar uma lista de combinações de nomes no LibreOffice?
Reply
0
0
Rated 5 out of 5
skyyang
skyyang     Guilherme Johansson
This comment was minimized by the moderator on the site
Hello, Johansson

Sorry, the methods in this article are only applied for Microsoft Excel.
Thank you!
Reply
Report
0
0
Nicolaj Ekholm
Nicolaj Ekholm
This comment was minimized by the moderator on the site
Hej alle sammen

Jeg håber at i kan hjælpe med dette.

Jeg har en af de gamle Bastalåse kodelåse med 6 knapper, hvor man kan trykke knapperne ind, lade dem være i neutral eller trække dem ud.

Låsen var åben da jeg købte den, så jeg låste den i håb om at jeg kunne gå kombinationerne igennem.

Men jeg har lidt problemer med at få nedskrevet samtlige kombinationer (729 så vidt jeg kan regne ud).

Er der en der vil hjælpe mig med med dette? Evt. kan man kalde de 3 indstillingsmuligheder pr. knap for: 1-2-3, 1-0-2, eller I-N-U (ind-neutral-ud).


Krydser finger og siger på forhånd mange tak hvis jeg kan få låsen op, det er sådan lidt nostalgi.

Mvh

Nicolaj
Reply
0
0
EDER
EDER
This comment was minimized by the moderator on the site
No 1º Exemplo de captura de tela , está faltando em All combinations Jan - KTE
Reply
0
0
MandyZhou
MandyZhou     EDER
This comment was minimized by the moderator on the site
Hello friend,
How are you. Thank you for your notice. We changed the first ficture. Please check now. Have a nice day.

Sincerely,
Mandy
Reply
Report
0
0
Shahrokh Zadeh
Shahrokh Zadeh
This comment was minimized by the moderator on the site
Hi,
I have a project with excel (including Kutools) that I am stuck on.
Can anyone tell me how to get a list of all combinations of 6 different numbers, without repeating any of the numbers?
I know there should be 6! = 720 combinations but I need the list.
Thanks
Reply
0
0
Shahrokh Zadeh
Shahrokh Zadeh
This comment was minimized by the moderator on the site
Hi,
I have a project with excel (including Kutools) that I am stuck on.
Can anyone tell me how to get a list of all combinations of 6 different numbers, without repeating any digit?
I know there should be 6! = 720 combinations but I need the list.
Thanks
Reply
0
0
simplest.becky
simplest.becky
This comment was minimized by the moderator on the site
Hello Extend Office,
I want to extend the VBA code in "List Or Generate All Possible Combinations From Three Or More Lists With VBA Code article"
I want to show only the one's whose total of the combinations is equal to 9. Can you please show the additional extension/lines in the code? sorry, I'm barely new in VBA.
For example, I only want to show the combinations like the following:
1-2-2-2-2 (this is equal to 1+2+2+2+2 = 9) so, it will show the ones whose total is 9, the rest won't show.
1-2-3-1-3 (=9)
1-3-2-1-2 (=9) and so on...

Thanks very much for your help
Dalesimplest.becky15.08.21

Reply
Report
0
0
jericho
jericho
This comment was minimized by the moderator on the site
edited formula to randomize 5 columns instead of 3 but still wont work,why?
Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5 As Range
Dim xRg As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3, xFN4, xF5 As Integer
Dim xSV1, xSV2, xSV3, xSV4, xSV5 As String
Set xDRg1 = Range("A2:A10") 'First column data
Set xDRg2 = Range("B2:B10") 'Second column data
Set xDRg3 = Range("C2:C10") 'Third column data
Set xDRg2 = Range("D2:D10") 'Fourth column data
Set xDRg3 = Range("E2:E10") 'Fifth column data
xStr = "," 'Separator
Set xRg = Range("G2") '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
For xFN4 = 1 To xDRg4.Count
xSV4 = xDRg4.Item(xFN4).Text
For xFN5 = 1 To xDRg5.Count
xSV5 = xDRg5.Item(xFN5).Text
xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3 & xStr & xSV4 & xStr & xSV5
Set xRg = xRg.Offset(1, 0)
Next
Next
Next
End Sub
Reply
0
0
skyyang
skyyang     jericho
This comment was minimized by the moderator on the site
Hello, jericho,You should modify your code as below code, please try it, thank you!<div data-tag="code">Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5 As Range
Dim xRg As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3, xFN4, xFN5 As Integer
Dim xSV1, xSV2, xSV3, xSV4, xSV5 As String
Set xDRg1 = Range("A2:A10") 'First column data
Set xDRg2 = Range("B2:B10") 'Second column data
Set xDRg3 = Range("C2:C10") 'Third column data
Set xDRg4 = Range("D2:D10") 'Fourth column data
Set xDRg5 = Range("E2:E10") 'Fifth column data
xStr = "-" 'Separator
Set xRg = Range("H2") '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
For xFN4 = 1 To xDRg4.Count
xSV4 = xDRg4.Item(xFN4).Text
For xFN5 = 1 To xDRg5.Count
xSV5 = xDRg5.Item(xFN5).Text
xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3 & xStr & xSV4 & xStr & xSV5
Set xRg = xRg.Offset(1, 0)
Next
Next
Next
Next
Next
End Sub
Reply
Report
0
0
robertsu
robertsu
This comment was minimized by the moderator on the site
How to remove the repetition if I have color 1, color 2, color 3 in different orders(i.e. color2, color 3, color 1) but they are the same for my need? tks!
Reply
Report
0
0
Juan Tomás
Juan Tomás
This comment was minimized by the moderator on the site
Excelentes soluciones, muchas gracias, lo logré con Kutools
Reply
0
0
RAFFAELE
RAFFAELE
This comment was minimized by the moderator on the site
NON FUNZIONA. HO SEGUITO GLI STESSI PASSAGGI MA MI DICE CHE C'E' UN ERRORE
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations