Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
شارك الآن  \/ 
x

or

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

يوجد هنا نطاق من عمودين ، أحدهما هو قائمة الفصل والآخر هو قائمة أسماء الطلاب. كما ترى ، بعض الطلاب في نفس الفصل ، والبعض الآخر ليسوا كذلك. الآن أريد تجميع الطلاب في نفس الفصل في خلية واحدة كما هو موضح أدناه ، كيف يمكنني التعامل معها بسرعة في 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. الآن حدد كل نطاق البيانات بما في ذلك الصيغ وانقر Data (البيانات) > 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 for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.