نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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


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

الـ الجمع بين المصنفات فائدة كوتولس ل إكسيل يساعدك بسرعة الجمع بين بعض المصنفات في واحد. فقط عدة نقرات لحفظ 90٪ من وقتك. بالإضافة إلى ذلك ، مع هذه الميزة ، يمكنك الجمع بين أوراق عمل متعددة أو أوراق عمل تحمل الاسم نفسه في مصنفات واحدة ، أو دمج القيم عبر المصنفات في ورقة واحدة بناءً على احتياجاتك. قم بتنزيل الدرب المجاني الكامل ل 60-day من Kutools for Excel الآن!

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

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

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

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

الملاحظات:

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

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

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

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

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

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

إحضار كلفه التحرير والتصفح في مكتب
--- اجعل عملك أسهل بكثير
تبويب أوفيس سيوفر 50٪ من وقت عملك عند استعراض وتحرير مستندات متعددة.
لا يصدق! إن تشغيل وثيقتين أو أكثر لطيف حتى من عملية الوثيقة الواحدة.
قلل الآلاف من عمليات لوحة المفاتيح والماوس كل يوم ، وداعًا للأمراض المهنية الآن.
تعد واجهة Office Tab أكثر قوة وفعالية من متصفحات الإنترنت.

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

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

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

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

3. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم نسخ أدناه رمز VBA في إطار الوحدة النمطية.

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

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  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 أدناه 2.

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

في رموز VBA ، "C: \ المستخدمين \ DT168 \ سطح المكتب \ 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 مفتاح لتشغيل الرمز. ثم يتم دمج كل أوراق العمل أو أوراق العمل المحددة للمصنفات الموجودة في مجلد معين في مصنف رئيسي مرة واحدة.

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

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

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

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

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

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

مقارنة مع طريقتين أعلاه ، كوتولس ل إكسيل لديه المزايا التالية:

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

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


Kutools لـ Excel - يساعدك دائمًا على إنهاء العمل قبل الوقت ، وتمتع بمزيد من الوقت للاستمتاع بالحياة
هل تجد نفسك في كثير من الأحيان تلعب اللحاق بالركب ، وقلة الوقت الذي تقضيه لنفسك وعائلتك؟ كوتولس ل إكسيل يمكن أن تساعدك على التعامل مع الألغاز 80٪ Excel وتحسين كفاءة العمل 80٪ ، وتمنحك المزيد من الوقت لرعاية الأسرة والاستمتاع بالحياة.
أدوات 300 المتقدمة لسيناريوهات عمل 1500 ، تجعل عملك أسهل بكثير من أي وقت مضى.
لم تعد بحاجة إلى حفظ الصيغ ورموز VBA ، امنح عقلك قسطًا من الراحة من الآن فصاعدًا.
يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة خلال ثوانٍ.
قلل من آلاف عمليات لوحة المفاتيح والماوس كل يوم ، قل وداعًا للأمراض المهنية الآن.
كن خبيرًا في برنامج Excel في دقائق 3 ، وساعدك سريعًا في الحصول على تقدير وترقية زيادة الرواتب.
110,000 من الأشخاص المؤثرين للغاية واختيار 300 + للشركات ذات الشهرة العالمية.
اجعل $ 39.0 الخاص بك أكثر من $ 4000.0 تدريبًا على الآخرين.
تجربة كاملة مجانية 30 يوم. 60-Day Back Money Warranty بدون سبب.

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.