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

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

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

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

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

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

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

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

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

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

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

3. الآن حدد كل نطاق البيانات بما في ذلك الصيغ وانقر Data (البيانات) > Filter لإضافة Filter icons على البيانات.

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

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

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

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

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

2. ثم في النافذة ، انقر فوق Tools > References لتمكين References الحوار ، والتحقق Microsoft Scripting Runtime. انظر لقطة الشاشة:

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

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

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

6. انقر OKالآن تظهر النتيجة على النحو التالي:

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

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

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

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

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

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

4. انقر Ok. تظهر النتيجة على النحو التالي:

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

  تجربة

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

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

اقرأ أكثر... تحميل مجاني ... شراء...