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

دمج البيانات من عدة مصنفات 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؟

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

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