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

كيفية دمج الصفوف مع نفس المعرف / الاسم في إكسيل؟

على سبيل المثال ، لديك جدول كما هو موضح أدناه ، وتحتاج إلى دمج الصفوف مع معرّفات الطلبات ، أي أفكار؟ هنا ، ستقدم لك هذه المقالة حلين لك.


ادمج الصفوف بنفس المعرف / الاسم بواسطة 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 ، والجمع ، والعد ، والمتوسط ​​، وما إلى ذلك في نفس الوقت!


إعلان متقدم يجمع الصفوف 1

اجمع بين الصفوف بنفس المعرف / الاسم بواسطة Kutools for Excel

إذا كان لديك Kutools for Excel مثبتًا ، فيمكنك تطبيقه الجمع بين الصفوف المتقدمة ميزة لدمج الصفوف بسرعة مع نفس المعرف أو الأسماء في النطاق المحدد.

كوتولس ل إكسيل - مزود بأكثر من 300 أداة أساسية لبرنامج Excel. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! التحميل الان!

1. حدد الصفوف التي ستقوم بدمجها وانقر فوقها كوتولس > وصف المنتج > الجمع بين الصفوف المتقدمة. انظر لقطة الشاشة:

2. في مربع الحوار Advanced Combine Rows ، يرجى تحديد عمود المعرف أو الاسم الذي ستجمعه ، انقر فوق المفتاح الأساسي، ثم حدد قواعد المجموعة للأعمدة الأخرى حسب حاجتك.

في حالتي، 1 أحدد ملف رقم الطلب العمود ، وانقر فوق المفتاح الأساسي; 2 حدد التاريخ العمود ، وانقر فوق احسب الشحن > العد التنازلي; 3 حدد بائع العمود ، وانقر فوق دمج > فاصلة; 4 حدد الكمية العمود ، وانقر فوق احسب الشحن > مجموع. انظر لقطة الشاشة:

3. انقر على OK .
الآن سترى الصفوف المحددة مجمعة بناءً على معرف الطلب. انظر لقطة الشاشة:


مقالات ذات صلة:

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

🤖 مساعد 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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Existe aluna formula para crear eso si la herramienta?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations