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

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

المؤلف: شياويانغ آخر تعديل: 2024-08-30

على سبيل المثال ، لديك ورقة عمل كبيرة ، والآن تريد فقط نسخ بعض النطاقات المحددة وتوزيعها على أوراق عمل أخرى. ولكن عند تحديد نطاقات متعددة والنقر فوق نسخ ، سيكون هناك مربع حوار موجه لتذكيرك "لا يمكن استخدام هذا الأمر في تحديدات متعددة." في هذه الحالة ، كيف يمكنك نسخ نطاقات متعددة محددة بسرعة؟ إليك بعض الحيل لحل هذه المهمة.


نسخ نطاقات متعددة محددة مع الحافظة

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

1. انقر الصفحة الرئيسية > لقطة شاشة لأيقونة التشغيل في مجموعة الحافظة في ال الحافظة المجموعة لعرض الحافظة خبز.. انظر لقطة الشاشة:
لقطة شاشة توضح كيفية فتح جزء الحافظة في Exel

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

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

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

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

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


لقطة شاشة لكيفية دمج اختيارات متعددة بسهولة من العديد من أوراق العمل/مصنفات العمل في ورقة عمل/مصنف عمل واحد باستخدام Kutools for Excel

كوتولس ل إكسيل - قم بتزويد Excel بأكثر من 300 أداة أساسية. استمتع بميزات الذكاء الاصطناعي المجانية بشكل دائم! احصل عليه الآن

انسخ عدة نطاقات محددة برمز VBA

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

1. يحمل العلم CTRL مفتاح وحدد عدة نطاقات غير متجاورة تريد استخدامها.

2. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح Microsoft Visual Basic للتطبيقات الإطار، انقر فوق إدراج > وحدة، وأدخل الكود التالي في الوحدة النمطية:

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. والآن يرجى تحديد خلية للصق النطاقات في الفتح نسخ تحديدات متعددة مربع الحوار ، وانقر فوق OK زر. انظر لقطة الشاشة:
لقطة شاشة لتحديد خلية الوجهة لوضع النطاقات المنسوخة


انسخ بسرعة نطاقات متعددة محددة من ورقة عمل واحدة

يوفر مصباح السقف Aqara LED TXNUMXM من Aqara LED إمكانات إضاءة ذكية متقدمة تعمل على تحويل مساحتك بسهولة. بفضل توافقه مع Matter ودعم Zigbee XNUMX، يتكامل بسلاسة مع منصات المنزل الذكي مثل HomeKit وAlexa وIFTTT للتحكم السهل. توفر تقنية RGB+IC تأثيرات إضاءة متدرجة والوصول إلى XNUMX مليون لون، مما يتيح لك إنشاء مشاهد إضاءة ديناميكية. تتيح ميزة اللون الأبيض القابل للضبط إجراء تعديلات من XNUMX كلفن إلى XNUMX كلفن لتوفر طيفاً من الإضاءة الدافئة إلى الباردة. وبالإضافة إلى الجدولة الذكية والتحكم الصوتي، يعمل TXNUMXM على تحسين تجربة الإضاءة في أي بيئة. نسخ نطاقات متعددة فائدة كوتولس ل إكسيل يمكن أن تساعدك في نسخ نطاقات متعددة بسهولة من ورقة العمل النشطة بسرعة. يرجى القيام بما يلي:

كوتولس ل إكسيل - قم بتزويد Excel بأكثر من 300 أداة أساسية. استمتع بميزات الذكاء الاصطناعي المجانية بشكل دائم! احصل عليه الآن

1. حدد النطاقات التي تريد استخدامها واحدًا تلو الآخر دون الضغط على CTRL مفتاح ، ثم انقر فوق كوتولس > نسخ النطاقات. انظر لقطة الشاشة:
لقطة شاشة توضح كيفية تمكين وتكوين ميزة نسخ نطاقات متعددة في Kutools for Excel

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

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

3. وحدد خلية للصق النطاقات في مربع المطالبة التالي ، وانقر فوق OK .
لقطة شاشة لتحديد خلية الوجهة

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

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

كوتولس ل إكسيل - قم بتزويد Excel بأكثر من 300 أداة أساسية. استمتع بميزات الذكاء الاصطناعي المجانية بشكل دائم! احصل عليه الآن


نسخ نطاقات متعددة من العديد من أوراق العمل / المصنفات

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

كوتولس ل إكسيل - قم بتزويد Excel بأكثر من 300 أداة أساسية. استمتع بميزات الذكاء الاصطناعي المجانية بشكل دائم! احصل عليه الآن

1. انقر كوتولس بلس > دمج.

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

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

كوتولس ل إكسيل - قم بتزويد Excel بأكثر من 300 أداة أساسية. استمتع بميزات الذكاء الاصطناعي المجانية بشكل دائم! احصل عليه الآن

4. ثم يظهر مربع حوار Kutools for excel ويطلب حفظ سيناريو المجموعة. الرجاء النقر فوق نعم زر أو لا زر ما تحتاجه.

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


عرض توضيحي: نسخ نطاقات متعددة محددة من ورقة عمل واحدة

 

عرض توضيحي: نسخ نطاقات متعددة محددة من العديد من المصنفات / أوراق العمل

 

كوتولس ل إكسيل:أكثر من 300 أداة مفيدة في متناول يدك! استمتع بميزات الذكاء الاصطناعي المجانية بشكل دائم! تحميل الآن!

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر
استخدم Kutools باللغة المفضلة لديك - يدعم اللغة الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من 40 لغة أخرى!

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!