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

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

المؤلفدعم تقنيتاريخ التعديل

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

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

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

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

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

ملاحظات:

1). يمكنك تحديد عدة أوراق عمل غير متجاورة بالضغط مع الاستمرار على مفتاحCtrl، ثم النقر على علامات أوراق العمل واحدة تلو الأخرى.

2). لتحديد عدة أوراق عمل متجاورة، انقر على علامة التبويب الأولى، ثم اضغط مع الاستمرار على مفتاحShift، وانقر بعد ذلك على علامة التبويب الأخيرة لتحديدها جميعًا.

3). يمكنك النقر بزر الماوس الأيمن على أي علامة تبويب لورقة عمل، ثم اختيارتحديد جميع الأوراقمن القائمة السياقية لتحديد جميع أوراق العمل في المصنف دفعة واحدة.

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

خيار النقل أو النسخ في قائمة السياق

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

مربع حوار النقل أو النسخ

بعد ذلك، ستتمكن من رؤية أوراق العمل من المصنَّفين مجتمعة في مصنف واحد. يُرجى تكرار الخطوات السابقة لنقل أوراق العمل من مصنفات أخرى إلى المصنف الرئيسي.

أوراق العمل من مصنفيْن أصبحت الآن في مصنف واحد

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

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

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

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

3. اضغط على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic للتطبيقات. في نافذةMicrosoft Visual Basic للتطبيقات، انقر علىإدراج > وحدة نمطية، ثم انسخ رمز 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

ملاحظات:

1. سيحافظ رمز VBA المذكور أعلاه على أسماء الأوراق من المصنفات الأصلية بعد الدمج.

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

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

في أكواد VBA، يُعدّ "C:\Users\DT168\Desktop\KTE\« مسار الملف. أما في رمز VBA 3، فـ»Sheet1,Sheet3" هي أوراق العمل المحددة التي سيتم دمجها في المصنف الرئيسي. ويمكنك تعديلها بسهولة لتلبية احتياجاتك.

رمز VBA 2: دمج المصنفات في مصنف واحد (سيتم تسمية كل ورقة باستخدام بادئة اسم الملف الأصلي الخاص بها):

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

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

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 لـ Excelعملية دمج عدة مصنفات في مصنف واحد أسهل بكثير! دعنا نستعرض معًا كيف تعمل هذه الوظيفة الرائعة.

قبل استخدامKutools لـ Excel، يُرجىتنزيله وتثبيته أولاً.

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

زر الدمج في تبويب Kutools على الشريط

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

معالج دمج أوراق العمل

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

دمج أوراق العمل - الخطوة 2 من 3

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

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

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

إذا كنت ترغب في تجربة هذه الأداة مجانًا (لمدة 30 يومًا)،فما عليك سوى النقر لتنزيلها، ثم اتبع الخطوات المذكورة أعلاه لتطبيق العملية.

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

🤖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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل