انتقل إلى المحتوى الرئيسي

كيفية سرد أو إنشاء جميع المجموعات الممكنة في Excel؟

دعنا نقول ، لدي عمودين من البيانات التاليين ، والآن ، أريد إنشاء قائمة بجميع المجموعات الممكنة بناءً على قائمتي القيم كما هو موضح في لقطة الشاشة اليسرى. ربما يمكنك سرد جميع المجموعات واحدة تلو الأخرى إذا كانت هناك قيم قليلة ، ولكن إذا كان هناك عدة أعمدة ذات قيم متعددة مطلوبة لإدراج المجموعات الممكنة ، فإليك بعض الحيل السريعة التي قد تساعدك في التعامل مع هذه المشكلة في Excel .

سرد أو إنشاء كل المجموعات الممكنة من قائمتين مع الصيغة

سرد أو إنشاء جميع المجموعات الممكنة من ثلاث قوائم أو أكثر باستخدام رمز 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 مليار دولار أمريكي هو نطاق قيم القائمة الثانية التي تريد سرد كافة مجموعاتها الممكنة ، و 2 دولار هي الخلية التي تضع فيها الصيغة ، يمكنك تغيير مراجع الخلية حسب حاجتك.

2. ثم حدد الخلية D2 واسحب مقبض التعبئة لأسفل إلى الخلايا حتى تحصل على الخلايا الفارغة ، وقد تم إدراج جميع المجموعات الممكنة بناءً على قيمتي القائمتين. انظر لقطة الشاشة:

سرد أو إنشاء جميع المجموعات الممكنة من ثلاث قوائم أو أكثر باستخدام رمز VBA

ربما يكون تطبيق الصيغة المذكورة أعلاه صعبًا إلى حد ما بالنسبة لك ، إذا كانت هناك بيانات متعددة الأعمدة ، فسيكون التعديل أمرًا مزعجًا. هنا ، سأقدم رمز 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, C2: C4 هي نطاق البيانات الذي تريد استخدامه ، E2 هي خلية الإخراج التي تريد تحديد موقع النتائج. إذا كنت ترغب في الحصول على جميع مجموعات المزيد من الأعمدة ، يرجى تغيير وإضافة معلمات أخرى إلى الكود حسب حاجتك.

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيتم إنشاء جميع مجموعات الأعمدة الثلاثة في وقت واحد ، انظر لقطة الشاشة:

سرد أو إنشاء كل المجموعات الممكنة من قوائم متعددة مع ميزة قوية

إذا كانت هناك عدة قيم قوائم تحتاج إلى سرد المجموعات الممكنة ، فربما يكون من الصعب عليك تعديل الكود. هنا ، يمكنني أن أوصي بأداة قوية - كوتولس ل إكسيل، يحتوي على ميزة يدوية سرد كافة المجموعات والتي يمكن أن تسرد جميع المجموعات الممكنة بسرعة بناءً على قوائم بيانات معينة.

تنويهات:لتطبيق هذا سرد كافة المجموعات الميزة ، أولاً ، يجب عليك تنزيل ملف كوتولس ل إكسيل، ثم قم بتطبيق الميزة بسرعة وسهولة.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. انقر كوتولس > إدراج > سرد كافة المجموعات، انظر لقطة الشاشة:

2. في سرد كافة المجموعات في مربع الحوار ، قم بإجراء العمليات كما هو موضح أدناه العرض التوضيحي:

3. ثم تم إدراج جميع القيم والفواصل المحددة في مربع الحوار ، انظر الصورة:

4.ثم انقر فوق Ok ، وسيظهر مربع موجه لتذكيرك بتحديد خلية لإخراج النتيجة ، انظر لقطة الشاشة:

5. انقر OK، تم إنشاء جميع التركيبات الممكنة بناءً على القوائم المحددة في ورقة العمل كما هو موضح في لقطة الشاشة التالية:

انقر لتنزيل Kutools for Excel الآن!

المزيد من المقالات ذات الصلة:

  • أوجد كل المجموعات التي تساوي مجموعًا معينًا
  • على سبيل المثال ، لدي قائمة الأرقام التالية ، والآن ، أريد أن أعرف أي مجموعة من الأرقام في القائمة يصل مجموعها إلى 480 ، في لقطة الشاشة التالية الموضحة ، يمكنك أن ترى أن هناك خمس مجموعات من المجموعات الممكنة التي تضيف متساوية إلى 480 ، مثل 300 + 60 + 120 ، 300 + 60 + 40 + 80 ، إلخ. في هذه المقالة ، سأتحدث عن بعض الطرق للعثور على الخلايا التي تصل إلى قيمة معينة في Excel.
  • قم بإنشاء أو سرد كافة التبديلات الممكنة
  • على سبيل المثال ، لدي ثلاثة أحرف XYZ ، الآن ، أريد سرد جميع التباديل الممكنة بناءً على هذه الأحرف الثلاثة للحصول على ست نتائج مختلفة على النحو التالي: XYZ و XZY و YXZ و YZX و ZXY و ZYX. في Excel ، كيف يمكنك إنشاء أو سرد كافة التباديل بسرعة بناءً على عدد مختلف من الأحرف؟

 

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup  |   VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير   |  مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا   |  إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات:  12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 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