Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

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

Author Xiaoyang Last modified

لنفترض أن لدي 3 أعمدة من البيانات، وأريد إنشاء أو سرد جميع التوليفات للبيانات الموجودة في هذه الأعمدة الثلاثة كما هو موضح في لقطة الشاشة أدناه. هل لديك أي طرق جيدة لحل هذه المهمة في Excel؟

A screenshot of all combinations generated from 3 columns in Excel

إنشاء جميع التوليفات بناءً على 3 أعمدة من البيانات باستخدام صيغة

إنشاء جميع التوليفات بناءً على 3 أعمدة أو أكثر من البيانات باستخدام كود VBA

إنشاء جميع التوليفات بناءً على 3 أعمدة أو أكثر من البيانات باستخدام ميزة رائعة


إنشاء جميع التوليفات بناءً على 3 أعمدة من البيانات باستخدام صيغة

يمكن للصيغة الطويلة التالية أن تساعد في سرد جميع التوليفات للأعمدة الثلاثة، يرجى القيام بما يلي:

1. انقر فوق خلية حيث تريد عرض النتيجة، ثم انسخ والصق الصيغة أدناه فيها:

=IFERROR(INDEX($A$2:$A$4,INT((ROW(1:1)-1)/((COUNTA($B$2:$B$6)*(COUNTA($C$2:$C$5)))))+1)&"-"&INDEX($B$2:$B$6,MOD(INT((ROW(1:1)-1)/COUNTA($C$2:$C$5)),COUNTA($B$2:$B$6))+1)&"-"&INDEX($C$2:$C$5,MOD((ROW(1:1)-1),COUNTA($C$2:$C$5))+1),"")

ملاحظة: في هذه الصيغة: A2:A4، B2:B6، C2:C5 هي نطاقات البيانات التي تريد استخدامها.

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

A screenshot showing combinations of 3 columns generated using a formula in Excel


إنشاء جميع التوليفات بناءً على 3 أعمدة أو أكثر من البيانات باستخدام كود VBA

قد تكون الصيغة الطويلة أعلاه معقدة بعض الشيء للاستخدام، إذا كان هناك بيانات متعددة الأعمدة تحتاج إلى الاستخدام، سيكون من الصعب تعديلها. هنا، سأقدم لك كود VBA للتعامل مع الأمر بسرعة.

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: إنشاء جميع التوليفات لـ 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:A4")  'First column data
Set xDRg2 = Range("B2:B6")  'Second column data
Set xDRg3 = Range("C2:C5")  '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:A4، B2:B6، C2:C5 هي نطاقات البيانات التي تريد استخدامها، E2 هي الخلية التي تريد وضع النتائج فيها. إذا كنت ترغب في الحصول على جميع التوليفات لأكثر من ثلاثة أعمدة، يرجى تغيير وإضافة معلمات أخرى إلى الكود حسب الحاجة.

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

A screenshot of all combinations generated from 3 columns in Excel


إنشاء جميع التوليفات بناءً على 3 أعمدة أو أكثر من البيانات باستخدام ميزة رائعة

إذا كان لديك Kutools لـ Excel، باستخدام ميزته القوية قائمة جميع التركيبات، يمكنك سرد جميع التوليفات للأعمدة المتعددة بسرعة وسهولة.

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

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

A screenshot of the List All Combinations option under the Kutools Insert menu in Excel

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

A screenshot of the List All Combinations dialog box for setting up data columns and separators

3. بعد تحديد البيانات والفواصل، ثم انقر فوق زر موافق، في مربع الحوار التالي، حدد خلية لوضع النتيجة، انظر لقطة الشاشة:

A screenshot showing a cell selection prompt to locate the output of all combinations

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

A screenshot of all combinations generated from 3 columns in Excel

Kutools لـ Excel - قم بتعزيز Excel بأكثر من 300 أدوات أساسية. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! احصل عليه الآن

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

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

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


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

  • تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
  • افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
  • يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!

جميع إضافات Kutools. مثبت واحد

حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.

Excel Word Outlook Tabs PowerPoint
  • حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
  • مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
  • الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
  • تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
  • قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد