How to merge worksheets in Excel | كيفية دمج أكثر من ملف أو ورقة عمل اكسل في ملف واحد ~ Khaled Daqqa خالد أبو دقة

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

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

لذلك سنتكلم اليوم عن طريقتين لحل هذه المشكلة في عملية الدمج.

الطريقة الأولى: باستخدام أداة Kutools البسيطة: تجدها هنا.

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

1- في قائمة اكسل اضغط على Enterprise < ثم Combine كما في الصورة.

2- من نافذة الدمج Combine نختار الخيار الأول Combine multiple worksheets from workbooks into one worksheet كما في الصورة.

3- بعد الضغط على التالي Next في الخطوة الثانية نقوم بإضافة الملفات المراد دمجها على اليسار، وستظهر أوراق العمل لكل ملف على اليمين، ونقوم بتحديد المراد دمجها. كما في الصورة.

4- بعد تحديد أوراق العمل نضغط التالي، في الخطوة الثالثة نقوم بعمل الاعدادات التي تناسبك، مثلا كما في الصورة.

5- بالضغط على انهاء Finish ومن ثم حفظ ليتم الدمج. انظر الصورة.

هنا نصل لنهاية الطريقة الأولى وهي الأفضل.

أما الطريقة الثانية: باستخدام كود VBA الجاهز:

لحل هذه المشكلة يمكن اتباع الحل التالي:

1- في برنامج اكسل، قم بالضغط على مفتاحي alt+F11 معا لفتح نافذة تطبيقات مايكروسوفت فيجوال بيسك.

2- من النافذة التي ظهرت > اضغط على إدراج Insert < وبعد ذلك قم بالضغط على موديول Module لفتح نافذة الاكواد.

3- ألصق هذا الكود البرمجي الخاص بعملية التبديل أو التحويل:

Sub Combine()
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

4- لتشغيل الكود نقوم بالضغط على F5 > ثم نلاحظ وجود ورقة عمل جديدة باسمCombined في نفس الملف.

ملاحظات:

1. البيانات الخاصة بك يجب أن تبدأ من أول خلية A1 حتى لا يحدث خلل.

2. يجب ان تكون البيانات بنفس التركيبة.

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

لتفاصيل أكثر حول هذه الطرق بإمكانك مشاهدة الفيديو: