كيفية نسخ التحديدات المتعددة أو النطاقات في Excel؟

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

1. انقر الصفحة الرئيسية > في مجموعة الحافظة لإظهار لوحة الحافظة (توجد عادةً في الزاوية اليمنى السفلية لمجموعة الحافظة في شريط أدوات Excel). انظر لقطة الشاشة:

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

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

سيتم ترتيب المحتوى المُلصق عموديًا بشكل افتراضي؛ لذلك، إذا كان المقصود من البيانات أن تكون مرتبة بطريقة معينة، قد تحتاج إلى ضبط النتائج الملصقة، خاصةً بالنسبة للجداول أو القوائم. أيضًا، تحتفظ الحافظة بما يصل إلى 24 عنصرًا—إذا تجاوزت هذا العدد، سيتم استبدال أقدم العناصر. تأكد دائمًا من أن منطقة اللصق خالية لتجنب الكتابة فوق البيانات المهمة دون قصد.

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

إذا كنت بحاجة إلى جمع أو دمج المحتويات من العديد من الأوراق أو المصنفات، فإن تكرار عملية النسخ واللصق يدويًا عبر المصنفات قد يكون مملًا، ومعرّضًا للأخطاء، واستهلاكيًا للوقت—خاصةً عند تجميع بيانات على نطاق واسع. باستخدام Kutools لـ Excel’s دمج (أوراق العمل والمصنفات) الأداة، يمكنك دمج العديد من الأوراق والمصنفات في وجهة واحدة بفعالية، مما يقلل من الجهد اليدوي ويحافظ على هيكل البيانات طوال العملية. هذا الخيار مثالي للتقارير الشهرية، ملخصات البيانات بين الأقسام، أو تجميع البيانات التاريخية.

إذا كانت سير عملك تتطلب باستمرار نسخ نطاقات متعددة منفصلة، فإن أتمتة العملية عبر VBA (Visual Basic for Applications) يمكن أن توفر الكثير من الوقت وتقلل من الأخطاء البشرية. هذه الحل هو الأفضل للمستخدمين المتقدمين أو عند الحاجة إلى مهام متكررة ومنهجية—مثل نسخ نفس الأقسام كل أسبوع أو إعادة ترتيب البيانات لأغراض التقارير. هذه الطريقة تقدم مرونة أكبر ولكنها تتطلب تنفيذ دقيق خطوة بخطوة واهتمام بمواقع اللصق لتجنب الكتابة فوق البيانات عن طريق الخطأ.

1. اضغط مع الاستمرار على مفتاح Ctrl واستخدم الماوس لتحديد كل نطاق غير متجاور تريد جمعه.

2. اضغط على Alt + F11 معًا لفتح نافذة محرر Visual Basic for Applications (VBA)، ثم انقر على إدراج > وحدة. الصق الكود التالي مباشرة في نافذة الوحدة:

Option Explicit
Sub CopyMultipleSelection()
Dim SelAreas() As Range
Dim PasteRange As Range
Dim UpperLeft As Range
Dim NumAreas As Integer, i As Integer
Dim TopRow As Long, LeftCol As Integer
Dim RowOffset As Long, ColOffset As Integer
Dim NonEmptyCellCount As Integer
' Exit if a range is not selected
If TypeName(Selection) < > "Range" Then
MsgBox "Select the range to be copied. A multiple selection is allowed."
Exit Sub
End If
' Store the areas as separate Range objects
NumAreas = Selection.Areas.Count
ReDim SelAreas(1 To NumAreas)
For i = 1 To NumAreas
Set SelAreas(i) = Selection.Areas(i)
Next
' Determine the upper left cell in the multiple selection
TopRow = ActiveSheet.Rows.Count
LeftCol = ActiveSheet.Columns.Count
For i = 1 To NumAreas
If SelAreas(i).Row < TopRow Then TopRow = SelAreas(i).Row
If SelAreas(i).Column < LeftCol Then LeftCol = SelAreas(i).Column
Next
Set UpperLeft = Cells(TopRow, LeftCol)
' Get the paste address
On Error Resume Next
Set PasteRange = Application.InputBox _
(Prompt:="Specify the upper left cell for the paste range:", _
Title:="Copy Mutliple Selection", _
Type:=8)
On Error GoTo 0
' Exit if canceled
If TypeName(PasteRange) < > "Range" Then Exit Sub
' Make sure only the upper left cell is used
Set PasteRange = PasteRange.Range("A1")
' Check paste range for existing data
NonEmptyCellCount = 0
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
NonEmptyCellCount = NonEmptyCellCount + _
Application.CountA(Range(PasteRange.Offset(RowOffset, ColOffset), _
PasteRange.Offset(RowOffset + SelAreas(i).Rows.Count - 1, _
ColOffset + SelAreas(i).Columns.Count - 1)))
Next i
' If paste range is not empty, warn user
If NonEmptyCellCount < > 0 Then _
If MsgBox("Overwrite existing data?", vbQuestion + vbYesNo, _
"Copy Multiple Selection") < > vbYes Then Exit Sub
' Copy and paste each area
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
SelAreas(i).Copy PasteRange.Offset(RowOffset, ColOffset)
Next i
End Sub

3. في نافذة VBA، انقر على زر التشغيل (أو اضغط على F5) لتنفيذ الكود.

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

احتياطات واستكشاف الأخطاء: يقوم هذا الكود VBA بترتيب التحديدات المنسوخة بدءًا من أعلى اليسار للوجهة المحددة. كن حذرًا من الكتابة فوق البيانات المحتملة—إذا لم تكن منطقة الوجهة فارغة، سيظهر تحذير. إذا واجهت أي رسائل خطأ مثل 'Subscript out of range'، تحقق من أن التحديد الخاص بك يتكون بالكامل من نطاقات الخلايا. هذا النهج لا يدعم نسخ العناصر غير الخلوية، مثل الأشكال أو الرسوم البيانية، وسيقوم بنسخ القيم وتنسيق الخلايا فقط، وليس الكائنات.

يقدم Kutools لـ Excel حلاً أكثر كفاءة مع أداة نسخ النطاقات: تتيح لك تحديد جميع النطاقات التي تحتاجها في ورقة العمل ثم نسخها في خطوة واحدة. في واجهة سهلة الاستخدام، يمكنك اختيار كيفية لصق المحتوى المنسوخ تمامًا—سواء لصق كل المحتويات، الصيغ فقط، القيم فقط، التنسيقات فقط، إلخ. يمكنك أيضًا اختيار الاحتفاظ بارتفاع الصفوف وعرض الأعمدة اختياريًا، مما يوفر الوقت ويضمن تنسيقًا متسقًا.

1. حدد النطاقات واحدًا تلو الآخر عن طريق الضغط باستمرار على Ctrl ثم انتقل إلى Kutools > Copy Ranges. انظر لقطة الشاشة:

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

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

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

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

انقر هنا لمزيد من المعلومات حول أداة نسخ النطاقات المتعددة       

تجميع أجزاء من البيانات من العديد من أوراق العمل أو عبر مصنفات مختلفة هو أمر شائع لتكوين تقارير ملخصة أو تحليل البيانات. القيام بذلك يدويًا يستغرق وقتًا ويمكن أن يكون عرضة للأخطاء، خاصة عند التعامل مع ملفات كبيرة. يقدم Kutools لـ Excel أداة دمج أوراق العمل التي تجعل نسخ النطاقات المحددة من أوراق متعددة أو حتى مصنفات عملية بسيطة وموجهة. هذه الأداة مثالية للتوحيد الشهري، دمج نتائج الاستبيانات، بيانات الفواتير، وأي مهام أخرى تكون فيها البيانات موزعة عبر عدة مصادر.

1. ابدأ بالنقر على Kutools Plus > دمج في شريط أدوات Excel.

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

3. في الخطوة 2 من 3، قم بما يلي:

  (1) في قائمة المصنفات, حدد المصنف ثم انقر على زر تصفح الذي يلي كل ورقة لاختيار النطاق الدقيق الذي تريده.
  (2) لإضافة مصنفات إضافية، انقر إضافة, ثم كرر (1) لتحديد النطاقات من الملفات الإضافية.
  (3) انقر إنهاء بعد تأكيد جميع التحديدات.

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

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

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

1. لنفترض أنك تريد دمج البيانات من النطاقات A1:A5 و C1:C5 في عمود واحد بدءًا من الخلية E1. أدخل الصيغة التالية في E1:

=VSTACK(A1:A5, C1:C5)

2. اضغط على Enter للتأكيد. ستظهر جميع القيم من كلا النطاقين مكدسة في E1 وما بعدها. إذا كنت بحاجة إلى ترتيب كل البيانات من عدة نطاقات غير متجاورة في نطاق ملخص آخر، ما عليك سوى تعديل النطاقات داخل VSTACK.

احتياطات وملاحظات: هذه الصيغ مثالية لملخصات البيانات الثابتة ولكن لن تحافظ على التنسيق، الصيغ، الرسوم البيانية، أو الخلايا المدمجة من النطاقات المصدر. هي الأنسب لدمج القوائم أو الجداول البسيطة. إذا واجهت أخطاء مثل #REF!، تحقق من حدود النطاق.