كيف تسلسل الصفوف في خلية واحدة على أساس المجموعة في إكسيل؟
يوجد هنا نطاق من عمودين ، أحدهما هو قائمة الفصل والآخر هو قائمة أسماء الطلاب. كما ترى ، بعض الطلاب في نفس الفصل ، والبعض الآخر ليسوا كذلك. الآن أريد تجميع الطلاب في نفس الفصل في خلية واحدة كما هو موضح أدناه ، كيف يمكنني التعامل معها بسرعة في Excel؟
قم بالتجميع والتسلسل باستخدام الصيغ ووظيفة التصفية
قم بالتجميع والتسلسل باستخدام صفوف الجمع المتقدمة المتقدمة
قم بالتجميع والتسلسل باستخدام الصيغ ووظيفة التصفية
في Excel ، يمكنك تطبيق الصيغ على صفوف متسلسلة استنادًا إلى عمود واحد ، ثم استخدام وظيفة التصفية لعرض النتيجة فقط.
ملاحظات: تحتاج إلى فرز بياناتك حسب الفصل قبل اتباع الخطوات.
1. في خلية فارغة بجوار نطاق البيانات ، على سبيل المثال ، C13 ، اكتب هذه الصيغة =IF(A13=A12,C12&", "&B13,B13)، صحافة Enter مفتاح واملأ الصيغة إلى الخلايا بسحب مقبض التعبئة.
في الصيغة ، A13 هي البيانات الأولى في عمود "الفئة" ، B13 هي البيانات الأولى في عمود "الاسم" ، "،" هي الفاصل لتحديد محتويات السلسلة.
2. ثم في العمود التالي ، D13 ، اكتب هذه الصيغة =IF(A13<>A14,"Last","") ، واسحب مقبض التعبئة لأسفل لتطبيق الصيغة على الخلايا التي تحتاجها.
3. الآن حدد كل نطاق البيانات بما في ذلك الصيغ وانقر البيانات > 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.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)
1. حدد نطاق البيانات الذي تستخدمه وانقر فوقه Kutools > دمج وتقسيم > الجمع بين الصفوف المتقدمة.
2. في ال Advanced Combine Rows في النافذة، اختر العمود الذي تريد دمج الصفوف بناءً عليه، وانقر فوق Primary Key لتعيينه كعمود رئيسي.
3. حدد العمود الذي تريد دمجه، ثم انقر فوقه Combine، واختر محددًا واحدًا تستخدمه لفصل المحتويات المدمجة.
4. انقر Ok. وتظهر النتيجة على النحو التالي:
ملاحظات: قبل تطبيق الأداة المساعدة، من الأفضل أن يكون لديك نسخة من البيانات الأصلية.
تجربة
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!