دمج أوراق العمل التي تحمل نفس الاسم من عدة مصنفات في واحدة

دمج البيانات من عدة مصنفات Excel في ورقة عمل واحدة هو متطلب شائع في تحليل البيانات، خاصة عند التعامل مع التقارير الموحدة أو تجميع البيانات من مصادر مختلفة. يمكن أن يكون هذا الأمر تحديًا خاصًّا عندما تحتاج إلى دمج أوراق العمل التي تحمل نفس الاسم عبر مصنفات مختلفة. ستقودك هذه التعليمات خلال طريقتين فعّالتين لتبسيط هذه العملية: استخدام كود VBA للمستخدمين الذين يفضلون نهج البرمجة اليدوية، واستخدام Kutools لـ Excel للمستخدمين الذين يبحثون عن حل أكثر سهولة وأتمتة.

• دمج أوراق العمل التي تحمل نفس الاسم في واحدة باستخدام كود VBA
• دمج أوراق العمل التي تحمل نفس الاسم بسهولة في واحدة باستخدام Kutools لـ Excel

دمج أوراق العمل التي تحمل نفس الاسم في واحدة باستخدام كود VBA

يقدم هذا القسم كود VBA لدمج أوراق العمل التي تحمل نفس الاسم من عدة مصنفات في واحدة، يرجى القيام بما يلي:

1. اضغط على "Alt" + "F11" لفتح محرر VBA.
2. في محرر VBA، انقر فوق "إدراج" > "وحدة"، ثم أدخل الكود التالي لـ VBA في الوحدة.
   كود VBA: دمج المصنفات التي تحمل نفس الاسم في واحدة

   Sub CombineSameNameSheetsFromMultipleWorkbooks()
   'Updated by Extendoffice 2025/3/27
       Dim wsTarget As Worksheet
       Dim wbTarget As Workbook
       Dim wbSource As Workbook
       Dim wsSource As Worksheet
       Dim strSheetName As String
       Dim fd As FileDialog
       Dim FileChosen As Integer
       Dim FileName As String
       Dim lastRow As Long
   
       ' Set the name of the sheets to combine
       strSheetName = "SheetName" ' Change "SheetName" to the name of your sheet
   
       Set wbTarget = Workbooks.Add
       Set wsTarget = wbTarget.Sheets(1)
       wsTarget.Name = "Combined Data"
   
       Set fd = Application.FileDialog(msoFileDialogFilePicker)
       fd.AllowMultiSelect = True
   
       FileChosen = fd.Show
       If FileChosen = -1 Then
           For Each varFile In fd.SelectedItems
               Set wbSource = Workbooks.Open(varFile)
               
               On Error Resume Next
               Set wsSource = wbSource.Sheets(strSheetName)
               On Error GoTo 0
               
               If Not wsSource Is Nothing Then
                   lastRow = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row
                   
                   wsSource.UsedRange.Copy Destination:=wsTarget.Cells(lastRow + 1, 1)
                   
                   Set wsSource = Nothing
               End If
               wbSource.Close False
           Next varFile
       End If
       MsgBox "Data has been combined successfully!", vbInformation
   End Sub

   ملاحظة: قبل تشغيل الكود، تحتاج إلى تغيير "SheetName" في متغير "strSheetName" إلى الاسم الفعلي للأوراق التي تريد دمجها.

   

3. اضغط على "F5" لتشغيل الكود. ستظهر نافذة "حدد ملفات Excel"، يرجى اختيار المصنفات التي تحتوي على أوراق العمل التي تحمل نفس الاسم والتي تريد دمجها، ثم انقر فوق زر "فتح".

   

4. بمجرد اكتمال الدمج، ستظهر مربع حوار "Microsoft Excel" لتأكيد أن أوراق العمل قد تم دمجها بنجاح. انقر فوق "موافق" لإغلاقه.

   

الآن، تم دمج محتوى جميع أوراق العمل التي تحمل نفس الاسم من المصنفات المختارة في ورقة عمل واحدة في مصنف جديد.

دمج أوراق العمل التي تحمل نفس الاسم بسهولة في واحدة باستخدام Kutools لـ Excel

بينما توفر VBA قدرات أتمتة قوية في Excel، يمكن أن تكون معقدة ومربكة للمستخدمين الذين لا يمتلكون مهارات برمجة. بالإضافة إلى ذلك، تتطلب VBA ممارسات أمان دقيقة ويمكن أن تسبب مشكلات توافق. في المقابل، يوفر "Kutools لـ Excel" بديلاً أكثر سهولة وأمانًا لتبسيط عملية دمج أوراق العمل من مصنفات متعددة، مما يلغي الحاجة إلى كتابة أكواد معقدة ويجعل المهمة في متناول جميع مستخدمي Excel.

بعد تثبيت Kutools لـ Excel، حدد "Kutools Plus" > "دمج" لفتح معالج "دمج أوراق العمل". ثم قم بالتكوين كما يلي.

1. في معالج "دمج أوراق العمل – الخطوة 1 من 3"، حدد الخيار "دمج جميع أوراق العمل التي تحمل نفس الاسم في ورقة عمل واحدة" وانقر فوق "التالي".

   

2. في معالج "الخطوة 2 من 3"، انقر فوق زر "إضافة" لاختيار المصنفات التي تحتوي على أوراق العمل التي تحمل نفس الاسم والتي تريد دمجها.
   ملاحظة: إذا كانت المصنفات محفوظة في مجلد، يمكنك النقر فوق السهم المنسدل بجانب زر "إضافة" لتوسيع القائمة الفرعية، ثم حدد "مجلد" لإضافة جميع ملفات Excel من ذلك المجلد بسرعة.

   

3. بعد إضافة المصنفات، لديك خياران حسب احتياجاتك:
   • إذا كنت تريد دمج جميع أوراق العمل من المصنفات المختارة في مصنف واحد، ما عليك سوى النقر فوق زر "التالي". سيتم دمج جميع أوراق العمل، وسيتم دمج محتوى الأوراق التي تحمل نفس الاسم في ورقة عمل واحدة.
   • إذا كنت تريد دمج أوراق العمل التي تحمل نفس الاسم فقط، اختر أولًا ورقة عمل في قسم "قائمة ورقة العمل"، ثم انقر فوق زر "نفس الورقة". سيقوم هذا تلقائيًا باختيار جميع أوراق العمل التي تحمل نفس الاسم عبر المصنفات المضافة. بعد ذلك، انقر فوق "التالي" للمتابعة.

   

4. في الخطوة الأخيرة من المعالج، احتفظ بالخيار الافتراضي المحدد أو قم بتخصيص الإعدادات حسب احتياجاتك، ثم انقر فوق "إنهاء".

   

5. اختر مجلد وجهة للمصنف المدمج، وأدخل اسم ملف حسب الرغبة، ثم انقر فوق زر "حفظ" لإكمال العملية.

   

يمكن تنفيذ دمج أوراق العمل التي تحمل نفس الاسم من مصنفات متعددة بكفاءة باستخدام الأدوات المناسبة. سواء كنت تفضل الطرق المدمجة أو الوظائف الإضافية المتقدمة، فإن كلتا الطريقتين توفران حلولًا موثوقة لتلبية مستويات المهارة المختلفة. إتقان هذه التقنيات سيعزز بشكل كبير إنتاجيتك ويُبسّط توحيد البيانات في Excel.

إذا كنت ترغب في معرفة المزيد حول هذه الميزة، يرجى عرض هذه الصفحة: دمج جميع أوراق العمل التي تحمل نفس الاسم في ورقة عمل واحدة تعليمي.

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

كيفية دمج مصنفات متعددة في مصنف واحد في Excel؟

كيفية دمج أوراق العمل / المصنفات في ورقة عمل واحدة؟

كيفية تلخيص البيانات من أوراق العمل / المصنفات في ورقة عمل واحدة؟

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

🤖	Kutools AI Aide: أحدث ثورة في تحليل البيانات اعتمادًا على: التنفيذ الذكي |  توليد الأكواد |  إنشاء الصيغ المخصصة |  تحليل البيانات وتوليد الرسوم البيانية |  استخدام Kutools Functions...
	ميزات شائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو الخلايا بدون فقدان البيانات | تقريب بدون الصيغة...
	بحث متقدم: بحث بمعايير متعددة VLookup | بحث بقيم متعددة VLookup | بحث في عدة ورقات VLookup | مطابقة غامضة...
	قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة معتمدة | قائمة منسدلة متعددة الاختيارات...
	مدير الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاقات والأعمدة...
	ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | مدير أدوات المصنف وورقة العمل | مكتبة النص التلقائي | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب الجدول | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...)...
	أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع رسم بياني (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد

استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...

مزيد من التفاصيل حول Kutools لـ Excel... تنزيل مجاني...

---

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

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

مزيد من التفاصيل حول Office Tab... تنزيل مجاني...

---

جميع إضافات Kutools. مثبت واحد

حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.

• حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
• مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
• الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
• تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
• قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد

مزيد من التفاصيل حول Kutools for Office... تنزيل مجاني...