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

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

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

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

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

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

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

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

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

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

2. اضغط معًا على مفتاحَيAlt+F11 لفتح نافذة محررمايكروسوفت فيجوال بيسيك للتطبيقات (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 > نسخ المجموعات. راجع لقطة الشاشة:

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!، فتأكد من صحة حدود النطاقات مرة أخرى.