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

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

• دمج أوراق العمل التي تحمل نفس الاسم في ورقة عمل واحدة باستخدام كود VBA
• يمكنك بسهولة دمج أوراق العمل التي تحمل نفس الاسم في ورقة واحدة باستخدام Kutools for 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 for Excel

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

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

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

   

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

   

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

   

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

   

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

   

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

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

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

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

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

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