كيفية دمج الصفوف مع نفس المعرف / الاسم في إكسيل؟
على سبيل المثال ، لديك جدول كما هو موضح أدناه ، وتحتاج إلى دمج الصفوف مع معرّفات الطلبات ، أي أفكار؟ هنا ، ستقدم لك هذه المقالة حلين لك.
- ادمج الصفوف بنفس المعرف / الاسم بواسطة VBA
- اجمع بين الصفوف بنفس المعرف / الاسم بواسطة Kutools for Excel
ادمج الصفوف بنفس المعرف / الاسم بواسطة VBA
ستقدم هذه الطريقة VBA لدمج جميع الصفوف التي لها نفس المعرف أو الاسم بسرعة في التحديد المحدد. الرجاء القيام بما يلي:
1. صحافة قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، ثم قم بلصق كود فبا في نافذة الوحدة النمطية.
فبا: دمج الصفوف مع نفس المعرف / الاسم في إكسيل
Sub Consolidate_Rows()
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Value
Else
xRg(I, K) = xRg(I, K).Value & "," & xRg(J, K).Value
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub
3. اضغط على F5 مفتاح أو انقر فوق يجري زر لتشغيل هذا VBA.
4. في مربع الحوار Kutools for Excel المنبثق ، يرجى تحديد الصفوف التي ستجمعها ، ثم انقر فوق OK زر. انظر لقطة الشاشة:
الآن سترى الصفوف الموجودة في النطاق المحدد مدمجة مع الفواصل بنفس المعرف. انظر لقطة الشاشة:
ملاحظات: يمكن لـ VBA هذا فقط دمج الصفوف حسب القيم الموجودة في العمود الأول. على سبيل المثال ، إذا كنت تريد دمج الصفوف التي تحمل نفس الاسم ، فيجب عليك نقل عمود الاسم إلى العمود الأول من النطاق المحدد.
يمكنك بسهولة دمج الصفوف والحساب بناءً على القيم الموجودة في عمود آخر في Excel
كوتولس ل إكسيل الجمع بين الصفوف المتقدمة يمكن أن تساعدك الأداة على دمج الصفوف بناءً على القيم الموجودة في عمود anohter ، والجمع ، والعد ، والمتوسط ، وما إلى ذلك في نفس الوقت!
اجمع بين الصفوف بنفس المعرف / الاسم بواسطة Kutools for Excel
إذا كان لديك Kutools for Excel مثبتًا ، فيمكنك تطبيقه الجمع بين الصفوف المتقدمة ميزة لدمج الصفوف بسرعة مع نفس المعرف أو الأسماء في النطاق المحدد.
كوتولس ل إكسيل - مزود بأكثر من 300 أداة أساسية لبرنامج Excel. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! التحميل الان!
1. حدد الصفوف التي ستقوم بدمجها وانقر فوقها كوتولس > وصف المنتج > الجمع بين الصفوف المتقدمة. انظر لقطة الشاشة:
2. في مربع الحوار Advanced Combine Rows ، يرجى تحديد عمود المعرف أو الاسم الذي ستجمعه ، انقر فوق المفتاح الأساسي، ثم حدد قواعد المجموعة للأعمدة الأخرى حسب حاجتك.
في حالتي، 1 أحدد ملف رقم الطلب العمود ، وانقر فوق المفتاح الأساسي; 2 حدد التاريخ العمود ، وانقر فوق احسب الشحن > العد التنازلي; 3 حدد بائع العمود ، وانقر فوق دمج > فاصلة; 4 حدد الكمية العمود ، وانقر فوق احسب الشحن > مجموع. انظر لقطة الشاشة:
3. انقر على OK .
الآن سترى الصفوف المحددة مجمعة بناءً على معرف الطلب. انظر لقطة الشاشة:
مقالات ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!