KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفشياويانغتاريخ التعديل

يُعد دمج البيانات من عدة مصنفات 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» إلى الاسم الفعلي لأوراق العمل التي تريد دمجها.
    لقطة شاشة تُظهر SheetName في سطر الكود
  3. اضغط "F5" لتشغيل الكود. ستظهر نافذة «حدد ملفات Excel»—يرجى اختيار ملفات العمل التي تحتوي على أوراق العمل ذات الأسماء المتماثلة التي ترغب في دمجها، ثم انقر زر «فتح».
    لقطة شاشة لاختيار المصنفات
  4. بمجرد اكتمال عملية الدمج، ستظهر نافذة حوارية باسم «Microsoft Excel» تُؤكد أن أوراق العمل قد تم دمجها بنجاح. انقر على «موافق» لإغلاقها.
    لقطة شاشة لصندوق تنبيه نجاح الدمج

الآن، تم دمج محتوى جميع أوراق العمل التي تحمل أسماءً متماثلة من ملفات العمل المحددة في ورقة عمل واحدة ضمن ملف عمل جديد.

ملاحظة: لا يمكن لهذا كود VBA دمج عدة أوراق عمل ذات الأسماء المتماثلة.

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

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

Kutools لـ Excel – مزوَّد بأكثر من 300 أداة أساسية لبرنامج Excel! اجعل مهامك في Excel أسرع، وأسهل، وأكثر كفاءة.حمِّل الآن!

بعد تثبيت Kutools لـ Excel، اختر «KUTOOLS PLUS» > «دمج» لفتح معالج «تجميع ورقات العمل»، ثم قم بالتكوين كما يلي:

  1. في معالج «تجميع أوراق العمل – الخطوة 1 من 3»، اختر الخيار «دمج البيانات من عدة مصنفات ذات اسم ورقة عمل واحد»، ثم انقر على «التالي».
    لقطة شاشة للمعَدِّل خطوة 1
  2. في معالج «الخطوة 2 من 3»، انقر على زر «إضافة» لتحديد ملفات العمل التي تحتوي على أوراق العمل ذات الأسماء المتماثلة التي تريد دمجها.
    ملاحظة: إذا كانت ملفات العمل محفوظة في مجلد، يمكنك النقر على السهم الموجود بجانب زر «إضافة» لتوسيع القائمة الفرعية، ثم تحديد «مجلد» لإضافة جميع ملفات Excel من ذلك المجلد بسرعة.
    لقطة شاشة للمعَدِّل خطوة 2
  3. بعد إضافة ملفات العمل، لديك خياران حسب احتياجاتك:
    • إذا كنت ترغب في دمج جميع أوراق العمل من ملفات العمل المحددة في ملف عمل واحد، فما عليك سوى النقر على زر «التالي». سيتم دمج جميع أوراق العمل تلقائيًا، مع توحيـد محتوى الأوراق ذات الأسماء المتماثلة في ورقة عمل واحدة.
    • إذا كنت ترغب في دمج أوراق العمل ذات الأسماء المتماثلة فقط، فاختر أولًا ورقة عمل من قسم «قائمة ورقة العمل»، ثم انقر على زر «ورقة مماثلة». وسيؤدي ذلك إلى تحديد جميع أوراق العمل ذات الأسماء المتماثلة تلقائيًا عبر ملفات العمل المضافة. بعد ذلك، انقر على «التالي» للمتابعة.
    لقطة شاشة لاختيار ورقة العمل ذات الاسم نفسه فقط
  4. في الخطوة الأخيرة من المعالج، يمكنك إما الاحتفاظ بالخيار الافتراضي محددًا أو تخصيص الإعدادات وفقًا لاحتياجاتك، ثم انقر على «إنهاء».
    لقطة شاشة للمعَدِّل خطوة 3
  5. اختر مجلد الوجهة لملف العمل المدمج، وأدخل اسم الملف بالشكل الذي تريده، ثم انقر على زر «حفظ» لإتمام العملية.
    لقطة شاشة لاختيار مجلد الوجهة

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

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

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

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

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

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

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

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

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

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

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

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

جميع الإضافات من Kutools في برنامج تثبيت واحد!

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

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