Note: The other languages of the website are Google-translated. Back to English

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

في عملنا اليومي ، قد نواجه مشكلة تتمثل في دمج مئات الأوراق أو المصنفات في ورقة واحدة لتحليل البيانات والتي تستغرق وقتًا طويلاً إذا كنت تستخدم الأمر Copy and Paste في Excel. هنا في هذا البرنامج التعليمي ، سأقدم بعض النصائح لحل هذه الوظيفة بسرعة.

doc الجمع بين 1

الإنتقال السريع

دمج جميع أوراق المصنف النشط في ورقة واحدة باستخدام VBA
دمج عشرات الأوراق أو المصنفات في ورقة عمل / مصنف واحد بنقرات
دمج جدولين في جدول واحد والتحديث بعمود مع النقرات
تنزيل ملف نموذج


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

في هذا القسم ، أقدم رمز VBA الذي سينشئ ورقة جديدة لتجميع كل أوراق المصنف النشط أثناء تشغيله.

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

2. في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإنشاء برنامج نصي جديد للوحدة النمطية.

3. انسخ الكود أدناه والصقه في البرنامج النصي.

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
doc الجمع بين 2

4. صحافة F5 مفتاح ، ثم تم دمج جميع البيانات عبر الأوراق في ورقة جديدة تسمى Combined والتي يتم وضعها في مقدمة كل الأوراق.


بعد التمرير

هل ترغب في الحصول على زيادة في الأجور وكثير من الوقت لمرافقة العائلة؟

يعمل Office Tab على تحسين كفاءتك بنسبة 50٪ في Microsoft Office الذي يعمل الآن

لا يمكن تصديق أن العمل في مستندين أو أكثر أسهل وأسرع من العمل في مستند واحد.

بالمقارنة مع المتصفحات المعروفة ، فإن الأداة المبوبة في Office Tab أكثر قوة وفعالية.

قلل مئات النقرات على الماوس وكتابة لوحة المفاتيح كل يوم من أجلك ، وداعًا يد الماوس الآن.

إذا كنت تعمل عادةً في مستندات متعددة ، فسيوفر Office Tab وقتًا رائعًا بالنسبة لك.

30- يوم تجريبي مجاني، بطاقة الإئتمان غير مطالب بها.

التفاصيلتحميل مجاني الآن


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

باستخدام VBA ، يمكنك فقط دمج الأوراق في المصنف النشط ، ولكن كيف يمكنك دمج الأوراق عبر المصنفات في ورقة أو مصنف؟

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

دمج الأوراق عبر المصنفات في مصنف واحد
doc الجمع بين 3

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

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

هنا يأخذ الخيار الثاني كمثال:

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

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. قم بتنشيط Excel ، انقر فوق كوتولس بلس > دمج، ينبثق مربع حوار لتذكيرك بإغلاق المصنفات التي تريد دمجها. انقر OK للمتابعة.
doc الجمع بين 4
doc الجمع بين 5

2. في ال اجمع أوراق العمل في الخطوة 1 الحوار ، تحقق اجمع أوراق عمل متعددة من مصنفات في مصنف واحد اختيار. انقر التالى للانتقال إلى الخطوة التالية من المعالج.
doc الجمع بين 6

3. انقر أضف > قم بتقديم or مجلد لإضافة المصنفات التي تريد دمجها في قائمة المصنفات جزء ، ثم يمكنك تحديد ورقة العمل التي سيتم ضمها معًا عن طريق التحقق من الأسماء قائمة ورقة العمل جزء. انقر التالى للانتقال إلى الخطوة الأخيرة في المعالج.
doc الجمع بين 7

4. في هذه الخطوة ، حدد الإعدادات التي تريدها. ثم اضغط نهاية.
doc الجمع بين 8

5. تنبثق نافذة لك لتحديد مجلد لوضع المصنف المدمج ، ثم انقر فوق حفظ.
doc الجمع بين 9

الآن تم دمج المصنفات في مصنف واحد. وفي مقدمة كل الأوراق ، يتم أيضًا إنشاء ورقة رئيسية تسمى Kutools for Excel تسرد بعض المعلومات حول الأوراق والروابط لكل ورقة.
doc الجمع بين 10

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

Kutools for Excel: 200 + أدوات مفيدة مفيدة ، وتبسيط المهام المعقدة في Excel في بضع نقرات.

قل وداعا ليد الفأر وداء الفقار العنقي الآن

300 أداة متقدمة من Kutools for Excel حل و ان آكثر من 80% مهام Excel في ثوانٍ ، تسحبك من آلاف النقرات بالماوس.

تعامل بسهولة مع 1500 سيناريو عمل ، لا داعي لإضاعة الوقت في البحث عن حلول ، لديك الكثير من الوقت للاستمتاع بحياتك.

قم بتحسين إنتاجية 80٪ لأكثر من 110000 شخص ذو كفاءة عالية كل يوم ، بالطبع بما فيهم أنت.

لم تعد تتعذب من الصيغ المؤلمة و VBA ، امنح عقلك راحة ومزاج عمل بهيج.

30نسخة تجريبية مجانية لمدة يوم مع ميزات كاملة ، 30يوم استعادة الأموال دون أسباب.

الجسم الأفضل يصنع حياة أفضل.


دمج جدولين في جدول واحد والتحديث بعمود مع النقرات

إذا كنت ترغب في دمج جدولين في واحد وتحديث البيانات استنادًا إلى عمود كما هو موضح أدناه ، يمكنك تجربة دمج الجداول فائدة كوتولس ل إكسيل.
doc الجمع بين 11

Kutools for Excel: أكثر من 200 وظيفة إضافية مفيدة في Excel لتبسيط المهام المعقدة في بضع نقرات في Excel

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. انقر كوتولس بلس > دمج الجداول لتمكين دمج الجداول المعالج.
doc الجمع بين 12

2. في الخطوة 1 من المعالج ، تحتاج إلى تحديد نطاقات الجدول الرئيسي وجدول البحث بشكل منفصل. ثم اضغط التالى.
doc الجمع بين 13

3. حدد عمود المفتاح الذي تريد تحديث البيانات في الجدول الرئيسي بناءً عليه. انقر التالى.
doc الجمع بين 14

4. ثم تحقق من الأعمدة في الجدول الرئيسي الذي تريد تحديث البيانات بناءً على جدول البحث. انقر التالى.
doc الجمع بين 15

5. في الخطوة 4 من المعالج ، حدد الأعمدة التي تريد إضافتها من جدول البحث إلى الجدول الرئيسي. انقر التالى.
doc الجمع بين 16

6. في الخطوة الأخيرة من المعالج ، حدد خيارات الإعداد حسب حاجتك. ثم اضغط نهاية.
doc الجمع بين 17

الآن تم تحديث الجدول الرئيسي للبيانات وإضافة بيانات جديدة بناءً على جدول البحث.

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

Kutools for Excel: 200 + أدوات مفيدة مفيدة ، وتبسيط المهام المعقدة في Excel في بضع نقرات.


تنزيل نموذج ملف

عينة


أدوات الإنتاجية الموصى بها

علامة تبويب Office - الاستعراض المبوب وتحرير وإدارة المستندات في Microsoft Office 2019-2003 و Office 365


علامة تبويب المكتب

وظيفة إضافية احترافية لتسريع Excel 2019-2007 ، تعمل على تقليص مهام الساعات إلى ثوانٍ

تتضمن هذه الوظيفة الإضافية العشرات من المجموعات المهنية ، مع أكثر من 300 خيارًا ستعمل على أتمتة معظم مهامك اليومية في Excel ، وتزيد من إنتاجيتك بنسبة 50٪ على الأقل. مثل مجموعات الاختيارات بنقرة واحدة والتحويلات المجمعة.
الآن هي فرصتك لتسريع نفسك مع Kutools for Excel!


فرز التعليقات حسب
التعليقات (168)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
استخدم أول وظيفة ماكرو. رائع! شكرا على نشرك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أعتقد أن الكودالتحديد. الإزاحة (0 ، 0). تغيير الحجم (التحديد ، الصفوف ، العدد - 1).لا يجب أن يكون هناك. من ناحيتي ، ما يفعله هو تحديد الصف الثاني فصاعدًا في عداد المفقودين الأول.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي نفس المشكلة. يتم حذف الصف الأول من ورقة العمل الثانية المضافة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يزيل الرؤوس حتى لا يكون لديك رؤوس مكررة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل مثل السحر ، شكرا للمشاركة!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك! عمل الماكرو على أكمل وجه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا أعرف ، كيفية استخدام وظيفة VBN في Excel ، هل يمكنك المساعدة في كيفية القيام بذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع شكرا!!! مفيد جدا جدا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماكرو واحد يعمل بشكل جيد. شكرًا!! رائع !!!! :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لاحظ أن هذا مقيد بحد 65 كيلو صف ، إذا كنت تريد زيادة سطر Selection.Copy Destination: = Sheets (1) .Range ("A65536"). End (xlUp) (2) range لحل المشكلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أداة رائعة ومع ذلك ، فهي لا تجمع بين كل 21 ورقة. كيف يمكنني توسيع النطاق؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ملاحظة!!! يجب أن تكون حذرًا مع الماكرو .. ستعمل إذا كانت بياناتك تحتوي على تدفق مستمر للمعلومات ولا يوجد صف فارغ. هذا ما يفعله السطر "Selection.CurrentRegion.Select". على سبيل المثال ، إذا كنت بحاجة إلى نسخ جميع البيانات الموجودة في جدول بيانات ولكن يوجد سطر فارغ في (دعنا نقول) الصف 200 ، فسيتم نسخ الماكرو فقط إلى الصف 200 ؛ سوف يتجاهل كل البيانات أدناه هذا الصف !!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يعرف أحد أمرا بتجنب هذه المسألة ؟؟ المشكلة مع Selection.Offset (1، 0) .Resize (Selection.Rows.Count - 1) .Select يمكن حلها؟ Selection.Rows.Count - 1) هو الأمر الذي أنشأ المشكلة. أي واحد؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بدلاً من البدء من الأعلى والنزول ، ابدأ من الأسفل واصعد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يعرف أحد الكود لحل مشاكل الصفوف والأعمدة الفارغة ؟. لدي ذلك في بياناتي ولكن لا يوجد حل بسيط مثل البدء من أسفل إلى أعلى؟ شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لحذف الصفوف الفارغة: الخيار 1: حدد الخلايا في العمود A التي يجب حذفها. استخدم Ctrl - ثم حدد الصف بأكمله في القائمة المنبثقة. حفظ المصنف والخروج. ثم افتح المصنف. الخيار 2: حدد الصفوف التي تريد حذفها. استخدم Ctrl -. احفظ المصنف واخرج من المصنف المفتوح. قدم الخيار رقم 1 حتى يكون مرئيًا لك ما كان يحدث. لحذف الأعمدة الفارغة: حدد العمود. كنترول -. احفظ المصنف واخرج من المصنف المفتوح.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل لدينا أي حل لنسخ البيانات الموجودة أسفل الخلية الفارغة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك ! كان صفي الثاني فارغًا في جميع الأوراق وكنت في حيرة من أمري.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عملت التعليمات البرمجية vba بشكل رائع ولكني أحتاج إلى تحديث ورقة العمل المدمجة حيث أقوم بإضافة صفوف جديدة أو بيانات جديدة إلى الخلايا في أوراق العمل التي أقوم بدمجها. هل هناك طريقة للقيام بذلك؟ شكرا لك على مساعدتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عملت التعليمات البرمجية للماكرو بشكل رائع مع أول ورقة عمل مدمجة ، لكنني بحاجة إلى تحديث ورقة العمل المدمجة أثناء إضافة البيانات إلى أوراق العمل الحالية التي أقوم بدمجها. هل هناك طريقة للقيام بذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل سبق لك أن اكتشفت كيفية تحديثه في البرنامج الرئيسي أثناء إضافة صفوف إلى أوراق العمل الأخرى؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل ممتاز .. هذا تم تقليص عملي من ساعتين إلى 2 دقائق.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ممتاز ، لقد استخدمت كلاً من الماكرو الأول و Kutools ، وكلاهما قلل من عملية جمع البيانات وتجميعها بشكل كبير. شكرا للمشاركة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت للتو بمسح الجزء الموضح أدناه والآن يتم تحديثه فقط. آمل أن يساعد هذا ... أوراق (1). حدد أوراق العمل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الكود يعمل بشكل رائع! أحتاج إلى الماكرو لنسخ جميع البيانات الموجودة على الأوراق. إنها تقطع الصف الأول بعد الورقة 1. تحتوي الورقة الواحدة فقط على صف الرأس ، والأوراق الأخرى عبارة عن بيانات فقط. هل هذا ممكن؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي سؤال حول "دمج جميع أوراق العمل في ورقة عمل واحدة باستخدام رمز VBA": تعمل التعليمات البرمجية بشكل جيد جدًا ، ولكن فقط عندما تكون فارغة ، فإنها تضيف الرأس ، ومن الممكن تعديل الكود ليقول عدم دمج الورقة الفارغة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك حفظت لي ساعة من النسخ واللصق: د
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لديك مصنفان ، نفس البيانات ولكن الثاني يحتوي على بيانات إضافية وتم تحديث بعض البيانات ، Inv # Status 123 7/2 open inv # status 123 7/2 open 7/7 أغلق كيفية الدمج في واحد لإزالة أو تمييز التكرارات وإضافتها أي Inv # جديد ليس في الأول
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل بشكل رائع إذا كان العمود "أ" غير = فارغ. على الأوراق التي تحتوي على العمود A فارغًا ، يبدو أنه تمت الكتابة فوقه. في العمود E الخاص بي dtaa غير فارغ في جميع الأوراق. كيف يمكنني تعديل وجهة النسخ لاحتساب العمود A الفارغ في بعض الأوراق؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Sub CopySheet () 'CopySheet Macro' Dim i As Integer For i = 2 إلى 25 ورقة ("Sheet1"). حدد النطاق ("A1"). حدد Selection.End (xlDown). حدد النطاق ("A" & CStr (Selection.Row) + 1) .Select Sheets ("Sheet" & CStr (i)). حدد Range ("A2"). حدد Range (Selection ، Selection.End (xlDown)). حدد Range (Selection ، Selection . End (xlToRight)). حدد Selection.Cut Sheets ("Sheet1"). حدد ActiveSheet.Paste Next End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Range ("A: A"). SpecialCells (xlCellTypeLastCell). حدد ActiveCell.Offset (1 ، 0). حدد 'استخدم هذا الرمز لتحديد الخلية الأخيرة في العمود "A" [اقتباس] Sub CopySheet ()' 'CopySheet Macro' 'Dim i As Integer For i = 2 إلى 25 ورقة ("Sheet1"). حدد النطاق ("A1"). حدد Selection.End (xlDown). حدد النطاق ("A" & CStr (Selection.Row) + 1) . حدد الأوراق ("الورقة" & CStr (i)). حدد النطاق ("A2"). حدد النطاق (التحديد ، التحديد ، النهاية (xlDown)). حدد النطاق (التحديد ، التحديد ، النهاية (xlToRight)). تحديد التحديد .Cut Sheets ("Sheet1"). حدد ActiveSheet.Paste Next End Subبواسطة كلوبيز[/ QUOTE]
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل رمز الماكرو بشكل جيد للغاية ... وظيفة رائعة :-)
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL