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

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

1. انقر الرئيسية > في الحافظة المجموعة لعرض الحافظة لوحة.. شاهد لقطة الشاشة:

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

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

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

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

قد يكون من الممل دمج العشرات من الأوراق من مصنفات مختلفة في ورقة واحدة. لكن مع Kutools لـ Excel’s دمج (أوراق العمل والمصنفات) الأداة، يمكنك إنجاز ذلك بنقرات قليلة فقط!

مع كود VBA، يمكنك أيضًا نسخ النطاقات المحددة المتعددة ولصقها في أي ورقة عمل أخرى.

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

2. اضغط على مفاتيح Alt + F11 في نفس الوقت لفتح نافذة Microsoft Visual Basic for Applications، انقر على إدراج > وحدة، وأدخل الكود التالي في الوحدة:

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. ثم انقر على زر التشغيل لتشغيل الكود.

4. الآن يرجى تحديد خلية للصق النطاقات في مربع الحوار المفتوح نسخ التحديدات المتعددة مربع الحوار، وانقر على الزر موافق . شاهد لقطة الشاشة:

أداة نسخ النطاقات المتعددة من Kutools لـ Excel يمكن أن تساعدك في نسخ النطاقات المتعددة من الورقة النشطة بسرعة. الرجاء القيام بما يلي:

1. حدد النطاقات التي تريد استخدامها واحدة تلو الأخرى دون الضغط على مفتاح Ctrl ، ثم انقر على Kutools > نسخ النطاقات. شاهد لقطة الشاشة:

2. في مربع الحوار نسخ النطاقات المتعددة، حدد الخيار الكل من قسم اللصق الخاص، وانقر على زر موافق. شاهد لقطة الشاشة أعلاه:

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

3. وحدد خلية للصق النطاقات في مربع الحوار المنبثق التالي، وانقر على الزر موافق .

والآن سيتم لصق جميع النطاقات المحددة في الخلية المحددة بنفس ارتفاع الصفوف وعرض الأعمدة مثل التحديدات الأصلية.

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

يوفر Kutools لـ Excel أداة دمج أوراق العمل الأخرى لنسخ نطاقات متعددة من العديد من أوراق العمل أو العديد من المصنفات بسهولة في Excel. الرجاء القيام بما يلي:

1. انقر على Kutools Plus > دمج.

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

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

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

4. ثم يظهر مربع حوار Kutools لـ Excel ويطلب حفظ سيناريو الدمج. يرجى النقر على زر نعم أو لا حسب الحاجة.

حتى الآن تم نسخ ولصق جميع النطاقات المحددة من أوراق العمل أو المصنفات المتعددة في مصنف جديد.