انتقل إلى المحتوى الرئيسي

كيفية دمج أوراق متعددة بنفس الرؤوس في Excel؟

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

doc يجمع نفس الرأس 1
doc يجمع نفس الرأس 2
doc يجمع نفس الرأس 3

دمج الأوراق ذات الرؤوس نفسها بواسطة VBA

قم بتوحيد أوراق Excel بنفس الرؤوس من خلال وظيفة التوحيد

قم بدمج أو دمج أوراق Excel بنفس الرؤوس بواسطة Kutools for Excel فكرة جيدة 3


السهم الأزرق الحق فقاعة دمج الأوراق ذات الرؤوس نفسها بواسطة VBA

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

1. تنشيط المصنف الذي تريد دمج الأوراق ، اضغط ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ثم قم بلصق رمز VBA أدناه في ملف وحدة نافذة.

فبا: دمج الأوراق ذات الرؤوس نفسها

Sub Combine()
'UpdateByKutools20151029
    Dim i As Integer
    Dim xTCount As Variant
    Dim xWs As Worksheet
    On Error Resume Next
LInput:
    xTCount = Application.InputBox("The number of title rows", "", "1")
    If TypeName(xTCount) = "Boolean" Then Exit Sub
    If Not IsNumeric(xTCount) Then
        MsgBox "Only can enter number", , "Kutools for Excel"
        GoTo LInput
    End If
    Set xWs = ActiveWorkbook.Worksheets.Add(Sheets(1))
    xWs.Name = "Combined"
    Worksheets(2).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1")
    For i = 2 To Worksheets.Count
        Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _
               Destination:=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1)
    Next
End Sub

3. صحافة F5 مفتاح لتشغيل VBA ، وينبثق مربع حوار لإدخال عدد صفوف العنوان. انظر لقطة الشاشة:

doc يجمع نفس الرأس 4

4. انقر OK. ويتم دمج جميع الأوراق الموجودة في المصنف النشط في ورقة جديدة تسمى "مشترك".

doc يجمع نفس الرأس 1
دوك بلس
doc يجمع نفس الرأس 2
دوك بلس
doc يجمع نفس الرأس 3
مستند عمودي يساوي
doc يجمع نفس الرأس 3

تلميح:

(1.) يجب أن تبدأ بياناتك من A1 ، وإلا فلن يتم تفعيل الكود.

(2.) يجب أن يكون لبياناتك نفس البنية.

(3.) يمكن لهذا الرمز فقط دمج جميع أوراق العمل الخاصة بالمصنف النشط ، إذا كنت تريد دمج أوراق العمل من مصنفات متعددة ، فلن يعمل هذا الرمز.


السهم الأزرق الحق فقاعة قم بتوحيد أوراق Excel بنفس الرؤوس من خلال وظيفة التوحيد

لنفترض أن لديك بعض البيانات بنفس رؤوس الأعمدة والصفوف كما هو موضح أدناه ، وتريد دمج أوراق Excel بنفس الرؤوس ثم إجراء بعض العمليات الحسابية ، يمكنك تطبيق وظيفة Consolidate في Excel.

doc يجمع نفس الرأس 6
doc يجمع نفس الرأس 7
doc يجمع نفس الرأس 8

1. افتح جميع المصنفات التي تريد دمج الأوراق منها ، ثم ضع المؤشر في خلية فارغة حيث تريد تحديد موقع البيانات المدمجة ، ثم انقر فوق البيانات > دمج. انظر لقطة الشاشة:

doc يجمع نفس الرأس 9

2. ثم في دمج نافذة ، قم بما يلي:

1) حدد الحساب الذي تريد النموذج المسمى الوظيفي قائمة؛

2) انقر لتحديد النطاق الذي تريد دمجه.

شنومكس) انقر أضف زر لإضافة النطاق إلى كل قائمة المراجع. لتكرار الخطوة 2) والخطوة 3) لإضافة جميع النطاقات اللازمة لدمجها في هذه القائمة.

4) تحقق الصف العلوي و العمود الأيسر مع استخدم الملصقات بتنسيق والقسم الخاص به.

5) إذا كنت تريد ربط البيانات المدمجة ببيانات المصدر ، فتحقق إنشاء روابط لبيانات المصدر.

doc يجمع نفس الرأس 10
doc يجمع نفس الرأس 11
1) حدد الحساب الذي تريد النموذج المسمى الوظيفي قائمة؛

2) انقر لتحديد النطاق الذي تريد دمجه.

شنومكس) انقر أضف زر لإضافة النطاق إلى كل قائمة المراجع. لتكرار الخطوة 2) والخطوة 3) لإضافة جميع النطاقات اللازمة لدمجها في هذه القائمة.

4) تحقق الصف العلوي و العمود الأيسر مع استخدم الملصقات بتنسيق والقسم الخاص به.

5) إذا كنت تريد ربط البيانات المدمجة ببيانات المصدر ، فتحقق إنشاء روابط لبيانات المصدر.

3. انقر OK. الآن يتم دمج جميع نطاق البيانات مع نفس الرؤوس في واحد ويتم تلخيصها بواسطة الرؤوس.

doc يجمع نفس الرأس 6doc يجمع نفس الرأس 7doc يجمع نفس الرأس 8
مستند عمودي يساوي
doc يجمع نفس الرأس 12

السهم الأزرق الحق فقاعة قم بدمج أو دمج أوراق Excel بنفس الرؤوس بواسطة Kutools for Excel

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

دمج أوراق إكسل مع نفس الرؤوس

دمج أوراق متعددة مع نفس الرؤوس

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)

دمج أوراق إكسل مع نفس الرؤوس

1. انقر كوتولس بلس > دمج لتمكين معالج الدمج ، ثم تحقق اجمع أوراق عمل متعددة من المصنفات في ورقة عمل واحدة. انظر لقطات الشاشة:
doc يجمع نفس الرأس 14
doc kutools الجمع بين 2

2. انقر التالي>> للذهاب إلى اجمع أوراق العمل - الخطوة 2 من 3 المعالج ، وافعل ما يلي:

doc kutools الجمع بين 3
شنومكس) انقر أضف > مجلد ملف لإضافة المصنفات يمكنك دمج الأوراق من إلى قائمة المصنفات;
2) تحقق من اسم المصنف الذي تريد دمج الأوراق ، يمكنك اختيار مصنفات متعددة ؛
3) تحقق من أوراق العمل التي تريد دمجها معًا ؛
شنومكس) انقر حدد المستند لتحديد النطاق الذي تريد دمجه ، إذا تم وضع النطاقات في نفس الموقع لكل ورقة ، فما عليك سوى تحديد نطاق واحد من الورقة ثم النقر فوق نفس النطاق.

3. انقر التالي >> إلى اجمع ورقة العمل - الخطوة 3 من 3 المعالج ، وتحقق الجمع عن طريق خيار الصف ونوع 1 في مربع نص رقم صف العنوان، إذا لم يكن هناك عنوان في النطاق الخاص بك ، فاكتب 0 فيه.

doc kutools الجمع بين 4

4. انقر نهاية، وينبثق مربع حوار لتذكيرك بحفظ هذا السيناريو ، إذا كنت تريد حفظه ، فانقر فوق نعمالطرق أو لا.

doc يجمع نفس الرأس 17

يتم الآن دمج الأوراق برؤوس الصفوف نفسها في مصنف جديد.

doc يجمع نفس الرأس 18

دمج أوراق متعددة مع نفس الرؤوس

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)

1. انقر مشروع > دمج لعرض معالج الدمج والتحقق دمج القيم وحسابها عبر مصنفات متعددة في ورقة عمل واحدة. انظر لقطة الشاشة:
doc kutools الجمع بين 5

2. انقر التالي>> للذهاب إلى اجمع أوراق العمل - الخطوة 2 من 3 المعالج ، وافعل ما يلي:

doc kutools الجمع بين 3
شنومكس) انقر أضف > مجلد ملف لإضافة المصنفات يمكنك دمج الأوراق من إلى قائمة المصنفات;
2) تحقق من اسم المصنف الذي تريد دمج الأوراق ، يمكنك اختيار مصنفات متعددة ؛
3) تحقق من أوراق العمل التي تريد دمجها معًا ؛
شنومكس) انقر حدد المستند لتحديد النطاق الذي تريد دمجه ، إذا تم وضع النطاقات في نفس الموقع لكل ورقة ، فما عليك سوى تحديد نطاق واحد من الورقة ثم النقر فوق نفس النطاق.

3. استمر في النقر التالي>> ، وحدد الوظيفة التي تريد تطبيقها في النطاق المدمج ، وتحقق من تسميات النطاق المدمج الخاص بك. انظر لقطة الشاشة:
doc kutools الجمع بين 6

4. انقر نهاية، وينبثق مربع حوار ليطلب منك حفظ السيناريو ، انقر فوق نعم للحفظ أو النقر لا لعدم حفظه.

ثم يتم دمج النطاقات في مصنف جديد.

doc يجمع نفس الرأس 12

ميزة كوتولس ل إكسيلالصورة دمج الوظيفة هي أنه يمكنك دمج أوراق متعددة عبر المصنفات المفتوحة أو المصنفات غير المفتوحة في ورقة عمل واحدة أو مصنف واحد.

قم بدمج / دمج البيانات بسهولة بناءً على نفس القيمة في Excel

لنفترض أنك تعمل باستخدام ورقة عمل تحتوي على عدة سجلات مكررة ، والآن تحتاج إلى دمج / دمج الصفوف بناءً على نفس القيمة وإجراء بعض العمليات الحسابية ، مثل مجموع الصفوف المكررة ومتوسطها وعددها. مع هذا الجمع بين الصفوف المتقدمة of كوتولس ل إكسيل، يمكنك دمج نفس القيم / نفس البيانات بسرعة أو تكرار الصفوف في الخلايا المناسبة.  انقر للحصول على نسخة تجريبية مجانية كاملة المواصفات خلال 30 يومًا!
doc متقدم يجمع الصفوف
 
Kutools for Excel: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30

المقالات النسبية

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
When using the VBA code only two of my sheets are combining instead of the three active sheets. The headers are all the same and all start in cell A1. Would you have any idea what the issue is please?
This comment was minimized by the moderator on the site
Bonjour, est-ce possible de Fusionner et LIER Plusieurs Feuilles Avec Les Mêmes En-Têtes Dans Excel afin que les changements qui sont effectués dans les feuilles du classeur soient appliqués dans la nouvelle feuille "combinée"?
This comment was minimized by the moderator on the site
Hello, If you want to combine sheets which with the same sheet names, there is no built-in feature in Excel can help you. You can try Combine feature of Kutools for Excel, it provides an option that combine sheets with same names, for more details, you can visit this tutorial https://www.extendoffice.com/product/kutools-for-excel/excel-combine-sheets-of-same-name-into-one-worksheet.html. And Kutools for Excel supports 30-day free trial, you can download it to have a try. https://www.extendoffice.com/download/kutools-for-excel.html
This comment was minimized by the moderator on the site
Very helpful the code for combining multiple worksheets, it worked fine! Thank you!
This comment was minimized by the moderator on the site
what will be vba code for combining multiple sheets in workbook into one worksheet if row headers are the same ( not column headers)
This comment was minimized by the moderator on the site
I used VBA to copy all sheets to one, but how can I copy only select sheets instead of all of them?
This comment was minimized by the moderator on the site
Esta excelente la primera macro, pero no sabrias decirme por que solamente me combina 4 columnas?. Si mis hojas tienen un aproximado de 30 columnas.
This comment was minimized by the moderator on the site
Hello
I bought Kutools for Excel 19.00, by interest in the merge function, but doesn't work with my files and sheets, all have the same name (Workbook an sheets) but in the combination of : "Combine all same name worksheets into one worksheet" dosn't work (does nothing), inclusive don't saves the new workbook in the place that I select prior to execute de Finish button.
I followed the instructions one and another time, but the result is the same.
Some help?
This comment was minimized by the moderator on the site
Hi, Ezequiel Zavaleta, I am sorry for hear that. You can contact our Customer Service Manager through this: our team will solve your problems as soon as possible.
This comment was minimized by the moderator on the site
perfect, thank you
This comment was minimized by the moderator on the site
How can I combine only sheets with same header ignoring other sheets?
This comment was minimized by the moderator on the site
How do I merge only select worksheets in that workbook?
How can I run the Macro to refresh the data on a weekly basis without having to delete the "Combined" tab?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations