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

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

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

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

1. افتح المصنفات التي تريد دمجها في مصنف رئيسي.

2. حدد أوراق العمل في المصنف الأصلي التي تريد نقلها أو نسخها إلى المصنف الرئيسي.

3. بعد تحديد الأوراق المطلوبة، انقر بزر الماوس الأيمن على علامة الورقة، ثم انقر على نقل أو نسخ من قائمة السياق. انظر لقطة الشاشة:

4. ستظهر نافذة نقل أو نسخ، في القائمة المنسدلة 'إلى المصنف'، حدد المصنف الرئيسي الذي تريد نقل أو نسخ الأوراق إليه. حدد 'الانتقال إلى النهاية' في مربع 'قبل الورقة'، وضع علامة على خانة ' إنشاء نسخة'، وأخيرًا انقر على زر موافق.

ثم يمكنك رؤية أوراق العمل في المصنفين تم دمجها في واحد. يرجى تكرار الخطوات أعلاه لنقل أوراق العمل من المصنفات الأخرى إلى المصنف الرئيسي.

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

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

1. ضع جميع المصنفات التي تريد دمجها في مجلد واحد.

2. افتح ملف Excel (سيكون هذا المصنف هو المصنف الرئيسي).

3. اضغط على مفتاح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications. في نافذة Microsoft Visual Basic for Applications، انقر على إدراج > وحدة، ثم انسخ الكود التالي للـ VBA في نافذة الوحدة.

كود VBA 1: دمج مصنفات Excel المتعددة في واحد

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. اضغط على مفتاح F5 لتشغيل الكود. ثم يتم دمج جميع الأوراق أو الأوراق المحددة للمصنفات في المجلد المحدد في مصنف رئيسي مرة واحدة.

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

لحسن الحظ، يجعل برنامج دمج المصنفات في Kutools for Excel من السهل جدًا دمج المصنفات المتعددة في واحد. دعونا نرى كيف يعمل هذا الخيار في دمج المصنفات المتعددة.

1. أنشئ مصنفًا جديدًا وانقر على Kutools Plus > دمج. ستظهر نافذة لتذكيرك بأن جميع المصنفات المدمجة يجب أن تكون محفوظة ولا يمكن تطبيق هذه الميزة على المصنفات المحمية، يرجى النقر على زر موافق.

2. في معالج دمج الأوراق، حدد خيار دمج أوراق العمل المتعددة من المصنفات في مصنف واحد، ثم انقر على زر التالي. انظر لقطة الشاشة:

3. في مربع الحوار دمج الأوراق - الخطوة 2 من 3، انقر على إضافة > ملف أو مجلد لإضافة ملفات Excel التي تريد دمجها في واحد. بعد إضافة ملفات Excel، انقر على زر إنهاء واختر مجلدًا لحفظ المصنف الرئيسي. انظر لقطة الشاشة:

الآن تم دمج جميع المصنفات في واحد.

مقارنة بالطريقتين السابقتين، فإن Kutools for Excel له المزايا التالية:

• 1) يتم سرد جميع المصنفات والأوراق في مربع الحوار؛
• 2) بالنسبة للأوراق التي تريد استبعادها من الدمج، ما عليك سوى إلغاء تحديدها؛
• 3) يتم استبعاد الأوراق الفارغة تلقائيًا؛
• 4) سيتم إضافة اسم الملف الأصلي كبادئة لاسم الورقة بعد الدمج؛
• لمزيد من الوظائف المتعلقة بهذه الميزة، يرجى زيارة هنا.