كيف تسلسل النص بسهولة بناءً على المعايير في Excel؟
لنفترض أن لدي عمودًا من أرقام المعرفات يحتوي على بعض التكرارات وعمود الأسماء ، والآن ، أريد أن أجمع الأسماء بناءً على أرقام المعرف الفريدة كما هو موضح في لقطة الشاشة اليسرى ، لدمج النص بسرعة بناءً على المعايير ، كيف يمكننا تفعل في Excel؟
نص متسلسل يعتمد على معايير مع وظيفة محددة بواسطة المستخدم
نص متسلسل يعتمد على المعايير ذات الامتداد Kutools for Excel
نص متسلسل يعتمد على معايير مع وظيفة محددة بواسطة المستخدم
لدمج النص مع أرقام المعرف الفريدة ، يمكنك استخراج القيم الفريدة أولاً ثم إنشاء وظيفة محددة بواسطة المستخدم لدمج الأسماء بناءً على المعرف الفريد.
1. خذ البيانات التالية كمثال ، تحتاج إلى استخراج أرقام المعرفات الفريدة أولاً ، يرجى تطبيق صيغة الصفيف هذه: =IFERROR(INDEX($A$2:$A$15, MATCH(0,COUNTIF($D$1:D1, $A$2:$A$15), 0)),""), أدخل هذه الصيغة في خلية فارغة ، على سبيل المثال D2 ، ثم اضغط كترل + شيفت + إنتر مفاتيح معًا ، انظر لقطة الشاشة:
معلومه- سرية: في الصيغة أعلاه ، A2: A15 هو نطاق بيانات القائمة الذي تريد استخراج قيم فريدة منه ، D1 هي الخلية الأولى في العمود التي تريد إخراج نتيجة الاستخراج.
2. ثم اسحب مقبض التعبئة لأسفل لاستخراج جميع القيم الفريدة حتى يتم عرض الفراغات ، انظر الصورة:
3. في هذه الخطوة ، يجب عليك إنشاء ملف وظيفة تعريف المستخدم لدمج الأسماء بناءً على أرقام التعريف الفريدة ، يرجى الضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
4. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: نص متسلسل يعتمد على المعايير
Function ConcatenateIf(CriteriaRange As Range, Condition As Variant, ConcatenateRange As Range, Optional Separator As String = ",") As Variant
'Updateby Extendoffice
Dim xResult As String
On Error Resume Next
If CriteriaRange.Count <> ConcatenateRange.Count Then
ConcatenateIf = CVErr(xlErrRef)
Exit Function
End If
For i = 1 To CriteriaRange.Count
If CriteriaRange.Cells(i).Value = Condition Then
xResult = xResult & Separator & ConcatenateRange.Cells(i).Value
End If
Next i
If xResult <> "" Then
xResult = VBA.Mid(xResult, VBA.Len(Separator) + 1)
End If
ConcatenateIf = xResult
Exit Function
End Function
5. ثم احفظ وأغلق هذا الرمز ، ارجع إلى ورقة العمل الخاصة بك ، وأدخل هذه الصيغة في الخلية E2 ، = CONCATENATEIF ($ A $ 2: $ A $ 15، D2، $ B $ 2: $ B $ 15، "،") ، انظر لقطة الشاشة:
6. ثم اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد تطبيق هذه الصيغة ، وتم دمج جميع الأسماء المقابلة بناءً على أرقام المعرفات ، انظر لقطة الشاشة:
نصيحة:
1. في الصيغة أعلاه ، A2: A15 هي البيانات الأصلية التي تريد دمجها بناءً على ، D2 هي القيمة الفريدة التي استخرجتها ، و B2: B15 هو عمود الاسم الذي تريد دمجه معًا.
2. كما ترى ، قمت بدمج القيم المفصولة بفاصلة ، يمكنك استخدام أي أحرف أخرى عن طريق تغيير الفاصلة "،" في الصيغة حسب حاجتك.
نص متسلسل يعتمد على المعايير ذات الامتداد Kutools for Excel
إذا كان لديك Kutools for Excel، بما لديها الجمع بين الصفوف المتقدمة فائدة ، يمكنك بسرعة وسهولة ربط قاعدة النص على المعايير.
Kutools for Excel : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت Kutools for Excel، قم بما يلي:
1. حدد نطاق البيانات الذي تريد دمجه بناءً على عمود واحد.
2. انقر كوتولس > دمج وتقسيم > الجمع بين الصفوف المتقدمة، انظر لقطة الشاشة:
3. في ضم الصفوف على أساس العمود مربع الحوار ، انقر فوق عمود المعرف ثم انقر فوق موافق المفتاح الأساسي لجعل هذا العمود هو العمود الأساسي الذي تستند إليه بياناتك المدمجة ، انظر لقطة الشاشة:
4. ثم انقر فوق الاسم العمود الذي تريد دمج القيم ، ثم انقر فوق دمج الخيار ، واختيار فاصل واحد للبيانات المدمجة ، انظر الصورة:
5. بعد الانتهاء من هذه الإعدادات ، انقر فوق OK للخروج من مربع الحوار ، وتم دمج البيانات الموجودة في العمود B معًا بناءً على عمود المفتاح أ. انظر لقطة الشاشة:
باستخدام هذه الميزة ، سيتم حل المشكلة التالية في أسرع وقت ممكن:
كيفية دمج عدة صفوف في واحد وجمع التكرارات في إكسيل؟
تنزيل وتجربة مجانية Kutools for Excel الآن !
عرض توضيحي: ربط النص بناءً على نفس الخلية في عمود آخر باستخدام Kutools for Excel
أفضل أدوات إنتاجية المكتب
ارفع مهاراتك في برنامج Excel باستخدام Kutools for Excelوتجربة كفاءة لم يسبق لها مثيل. Kutools for Excel يقدم أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!















