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

كيفية جمع البيانات من أوراق متعددة إلى ورقة رئيسية في إكسيل؟

في بعض الوقت ، قد تحتاج إلى جمع البيانات من أوراق متعددة في ورقة رئيسية واحدة للدمج أو القيام بعمليات أخرى كما هو موضح أدناه ، ولكن نسخ المحتويات ولصقها واحدًا تلو الآخر أمر مزعج ، فهل هناك أي حيل يمكن حلها بسرعة في اكسل؟

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

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

اجمع البيانات من أوراق متعددة في ورقة واحدة مع وظيفة الجمع القويةفكرة جيدة 3


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

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

1. في ورقة جديدة من المصنف الذي تريد جمع البيانات من الأوراق ، انقر فوق البيانات > دمج.
doc جمع الأوراق في واحد 1

2. في ال Consolidate الحوار ، افعل ما يلي:

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

(2 انقر زر تحديد المستند لتحديد نطاق كل ورقة تريد جمعها ؛

(3 انقر Add زر لإضافة نطاق البيانات إلى ملف All references مربع القائمة

(4 تحقق من الملصقات التي تستخدمها بعد دمج البيانات ، وتحقق منها Create links to source data الخيار إذا كنت تريد ربط البيانات في الورقة المدمجة ببيانات المصدر.
doc جمع الأوراق في واحد 2

3. انقر OK. الآن تم جمع البيانات وجمعها في ورقة واحدة.
doc جمع الأوراق في واحد 3


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

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

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

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

1. صحافة Alt + F11 مفتاح لتمكين Microsoft Visual Basic for Applications نافذة.

2. انقر Insert > Module، وانسخ الكود أدناه والصقه في ملف Module النصي.

فبا: جمع كل البيانات من الأوراق في واحد.

Sub Combine()
'UpdatebyExtendoffice20180205
    Dim I As Long
    Dim xRg As Range
    On Error Resume Next
    Worksheets.Add Sheets(1)
    ActiveSheet.Name = "Combined"
   For I = 2 To Sheets.Count
        Set xRg = Sheets(1).UsedRange
        If I > 2 Then
            Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
        End If
        Sheets(I).Activate
        ActiveSheet.UsedRange.Copy xRg
    Next
End Sub
doc جمع الأوراق في واحد 4

3. صحافة F5 لتشغيل الكود، تم جمع كافة بيانات المصنف بالكامل في الورقة الجديدة المدمجة.
doc جمع الأوراق في واحد 5


جمع البيانات من أوراق متعددة في ورقة واحدة قوية Combine وظيفة

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

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

اجمع كل أوراق العمل ذات الأسماء المتشابهة في ورقة عمل واحدة

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

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

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

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

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

1. قم بتمكين Excel ، انقر فوق Kutools Plus > Combine، هناك مربع حوار واحد أو اثنين يظهران لتذكيرك ببعض الإشعارات، فقط انقر OK و نعم لاستكمال. انظر لقطة الشاشة:

2. انقر OK للذهاب إلى Combine نافذة، الاختيار Combine multiple worksheets from workbook into worksheet الخيار.

3. انقر Next، ثم اضغط Add > File / Folder لإضافة المصنفات التي ستستخدمها للدمج في Workbook list. ثم اذهب الى Worksheet list للتحقق من الأوراق التي تريد دمجها في كل مصنف.

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

5. انقر Finish وحدد مجلدًا واحدًا لوضع المصنف الجديد الذي يجمع البيانات من الأوراق.
doc جمع الأوراق في واحد 13

6. انقر حفظ. الآن تم جمع كافة البيانات من الأوراق عبر المصنف في ورقة رئيسية واحدة.
doc جمع الأوراق في واحد 14

إذا كنت تريد دعم أوراق العمل عبر المصنفات في مصنف واحد، قم بما يلي:

1. في ال Combine نافذة، الاختيار Consolidate and calculate values across multiple worksheets into one worksheet الخيار.

2. انقر Next، وإضافة الملفات إلى Workbook list، ثم تحقق من الأوراق التي تستخدمها للجمع والحساب.

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

4. انقر Finish لحفظ المصنف الجديد في مجلد.

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


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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the VBA code - it works well! How can I extend the code so that when the sheets are combined that they are combined as values? I am running into some issues with circular reference issues when I try to interact with the combined sheet.
This comment was minimized by the moderator on the site
The VBA code works perfectly! , how can i edit it so it skips the first page in my workbook and merges the remaining pages?
This comment was minimized by the moderator on the site
Hi,
I'm trying to accomplish the following:
Get data from multiple tabs in a specific cell range (B3-E169).
Data would be compiled in columns...i.e., column B copies into column B on new spreadsheet, column C copies into column C on new spreadsheet, etc.
If there are more than two blank columns in B, stop & move onto next worksheet and get same data.
The result that I'm trying to get is a material list from different categories (hence the different tabs).

This is how I think it should work:
Lookup WS1 column B3-B169.
If two blank columns, Lookup WS2 column B3-B169,
If two blank columns, Lookup WS3 column B3-B169, etc.

WS2 should skip a space/column & come in underneath WS1.
WS3 should skip a space/column & come in underneath WS2,.etc.

Repeat or columns C, D & E
This comment was minimized by the moderator on the site
hmm your VBA code removes the last row from individual sheet when combined .. any idea how to solve this issue?
This comment was minimized by the moderator on the site
any answer for this?
This comment was minimized by the moderator on the site
How do you make your VBA overwrite the compiled data onto the same master list, rather than add a new sheet?
This comment was minimized by the moderator on the site
De que forma se puede obtener solo el valor de las hojas y llevarla a la hoja que se va a resumir todo, por ejemplo, en caso de que una hoja de las que se van a combinar exista una celda calculada o que dependa de otra hoja, por eso pregunto si se puede llevar solo los valores.
This comment was minimized by the moderator on the site
Sorry, could you repeat your quetion in English?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations