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

كيف تسلسل الصفوف في خلية واحدة على أساس المجموعة في إكسيل؟

يوجد هنا نطاق من عمودين ، أحدهما هو قائمة الفصل والآخر هو قائمة أسماء الطلاب. كما ترى ، بعض الطلاب في نفس الفصل ، والبعض الآخر ليسوا كذلك. الآن أريد تجميع الطلاب في نفس الفصل في خلية واحدة كما هو موضح أدناه ، كيف يمكنني التعامل معها بسرعة في Excel؟
doc concatenate حسب المجموعة 1

قم بالتجميع والتسلسل باستخدام الصيغ ووظيفة التصفية

تجميع وسلسلة مع رمز VBA

قم بالتجميع والتسلسل باستخدام صفوف الجمع المتقدمة المتقدمةفكرة جيدة 3


قم بالتجميع والتسلسل باستخدام الصيغ ووظيفة التصفية

في Excel ، يمكنك تطبيق الصيغ على صفوف متسلسلة استنادًا إلى عمود واحد ، ثم استخدام وظيفة التصفية لعرض النتيجة فقط.

ملاحظات: تحتاج إلى فرز بياناتك حسب الفصل قبل اتباع الخطوات.

1. في خلية فارغة بجوار نطاق البيانات ، على سبيل المثال ، C13 ، اكتب هذه الصيغة =IF(A13=A12,C12&", "&B13,B13)، صحافة Enter مفتاح واملأ الصيغة إلى الخلايا بسحب مقبض التعبئة.
doc concatenate حسب المجموعة 2

في الصيغة ، A13 هي البيانات الأولى في عمود "الفئة" ، B13 هي البيانات الأولى في عمود "الاسم" ، "،" هي الفاصل لتحديد محتويات السلسلة.

2. ثم في العمود التالي ، D13 ، اكتب هذه الصيغة =IF(A13<>A14,"Last","") ، واسحب مقبض التعبئة لأسفل لتطبيق الصيغة على الخلايا التي تحتاجها.
doc concatenate حسب المجموعة 3

3. الآن حدد كل نطاق البيانات بما في ذلك الصيغ وانقر البيانات > Filter لإضافة Filter icons على البيانات.
doc concatenate حسب المجموعة 4

4. انقر فوق Filter icon في رأس الصيغة الأخيرة ، تحقق Last مربع الاختيار فقط من القائمة المنسدلة ، وانقر فوق OK.
doc concatenate حسب المجموعة 5

الآن تظهر النتيجة على النحو التالي ، يمكنك إزالة عمود المساعد الأخير إذا لم تكن بحاجة إليه على الإطلاق.
doc concatenate حسب المجموعة 6


تجميع وسلسلة مع رمز VBA

إليك رمز VBA الذي يمكنه أيضًا التعامل مع هذه الوظيفة.

1. صحافة Alt + F11 مفاتيح لتمكين Microsoft Visual Basic for Applications نافذة.

2. ثم في النافذة ، انقر فوق Tools > References لتمكين References الحوار ، والتحقق Microsoft Scripting Runtime. انظر لقطة الشاشة:
doc concatenate حسب المجموعة 7
doc concatenate حسب المجموعة 8

3. انقر OK، ثم انقر Insert > Module في نافذة VBA ، وانسخ والصق رمز VBA أدناه إلى ملف Module النصي. انظر لقطة الشاشة:

فبا: سلسلة الصفوف في خلية واحدة على أساس المجموعة

  Sub ConcatenateCellsIfSameValues()
'UpdatebyExtendoffice20180201
    Dim I As Long
    Dim J As Long
    Dim xRg As Range
    Dim xRgKey As Range
    Dim xRgVal As Range
    Dim xStr As String
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
    If xRgKey Is Nothing Then
        MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
    End If
    Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
    For I = 1 To xRgKey.Count
        If I > xRgKey.Count Then Exit For
        xStr = ""
        For J = 1 To xRgVal.Columns.Count
            xStr = xStr & " " & xRgVal(I, J)
        Next
        If xDic.Exists(xRgKey(I).Text) Then
            xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
            xRgKey(I).EntireRow.Delete
            I = I - 1
       Else
            xDic.Add xRgKey(I).Text, xStr
        End If
    Next
    For I = 1 To xRgVal.Count
        xRgVal(I).Value = xDic(xRgKey(I).Text)
    Next
End Sub

doc concatenate حسب المجموعة 9

4. صحافة F5 المفتاح، وحدد نطاق البيانات الذي تستخدمه في مربع الحوار المنبثق.
doc concatenate حسب المجموعة 10

5. انقر OK لتحديد عمود المفتاح الذي تريد التجميع بناءً عليه.
doc concatenate حسب المجموعة 11

6. انقر OK، والآن تظهر النتيجة كما يلي:
doc concatenate حسب المجموعة 12


قم بالتجميع والتسلسل باستخدام صفوف الجمع المتقدمة المتقدمة

هنا فائدة في كوتولس ل إكسيل, Advanced Combine الصفوف، والتي يمكنها دمج الصفوف أو إجراء العمليات الحسابية بناءً على عمود مفتاح في Excel.

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)

1. حدد نطاق البيانات الذي تستخدمه وانقر فوقه Kutools > دمج وتقسيم > الجمع بين الصفوف المتقدمة.
doc concatenate حسب المجموعة 13

2. في ال Advanced Combine Rows في النافذة، اختر العمود الذي تريد دمج الصفوف بناءً عليه، وانقر فوق Primary Key لتعيينه كعمود رئيسي.
doc concatenate حسب المجموعة 14

3. حدد العمود الذي تريد دمجه، ثم انقر فوقه Combine، واختر محددًا واحدًا تستخدمه لفصل المحتويات المدمجة.

doc concatenate حسب المجموعة 15 دوك السهم الأيمن doc concatenate حسب المجموعة 16

4. انقر Ok. وتظهر النتيجة على النحو التالي:
doc concatenate حسب المجموعة 17

ملاحظات: قبل تطبيق الأداة المساعدة، من الأفضل أن يكون لديك نسخة من البيانات الأصلية.

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

🤖 مساعد 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 (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
la formule excel détaillée plus haut ne fonctionne pas, il y a un problème=IF(A13=A12,C12&", "&B13,B13)
This comment was minimized by the moderator on the site
Hi, could you repeat the qustion in English? This formula I have tried again, it is correct.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations