كيفية نسخ تحديدات أو نطاقات متعددة في إكسيل؟
على سبيل المثال ، لديك ورقة عمل كبيرة ، والآن تريد فقط نسخ بعض النطاقات المحددة وتوزيعها على أوراق عمل أخرى. ولكن عند تحديد نطاقات متعددة والنقر فوق نسخ ، سيكون هناك مربع حوار موجه لتذكيرك "لا يمكن استخدام هذا الأمر في تحديدات متعددة." في هذه الحالة ، كيف يمكنك نسخ نطاقات متعددة محددة بسرعة؟ إليك بعض الحيل لحل هذه المهمة.
- نسخ نطاقات متعددة محددة مع الحافظة
- انسخ عدة نطاقات محددة برمز VBA
- انسخ عدة نطاقات محددة من ورقة عمل واحدة
- نسخ نطاقات متعددة من العديد من أوراق العمل / المصنفات
نسخ نطاقات متعددة محددة مع الحافظة
مع مساعدة من الحافظة، يمكنك لصق جميع النطاقات المحددة في نطاق أو ورقة عمل أخرى في نفس الوقت. يرجى القيام بما يلي:
1. انقر الرئيسية > في ال الحافظة المجموعة لعرض الحافظة خبز.. انظر لقطة الشاشة:
2. ثم انسخ النطاقات المحددة التي تحتاجها واحدة تلو الأخرى. في الوقت نفسه ، ظهرت النطاقات المنسوخة في الحافظة خبز. انظر لقطة الشاشة أعلاه:
3. حدد الخلية الأولى من النطاق الوجهة الذي ستقوم بلصق جميع النطاقات المنسوخة إليه ، ثم انقر فوق لصق الكل زر في الحافظة جزء.
ثم تم لصق جميع النطاقات المنسوخة في نطاق الوجهة المحدد.
ادمج بسهولة تحديدات متعددة من العديد من أوراق العمل / المصنفات في ورقة عمل / مصنف واحد
قد يكون من الشاق دمج عشرات الأوراق من مصنفات مختلفة في ورقة واحدة. ولكن مع Kutools for Excel's الجمع بين (أوراق العمل والمصنفات) يمكنك إنجاز ذلك بعدة نقرات فقط!

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن
انسخ عدة نطاقات محددة برمز VBA
باستخدام رمز VBA ، يمكنك أيضًا نسخ نطاقات متعددة محددة ولصقها في أي ورقة عمل أخرى.
1. يحمل العلم CTRL مفتاح وحدد عدة نطاقات غير متجاورة تريد استخدامها.
2. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح Microsoft Visual Basic للتطبيقات الإطار، انقر فوق إدراج > وحدة، وأدخل الكود التالي في الوحدة النمطية:
خيار نسخ فرعي واضح إذا لم يتم تحديد نطاق إذا كان TypeName (التحديد) <> "Range" ثم MsgBox "حدد النطاق المراد نسخه. يُسمح بتحديد متعدد." قم بإنهاء Sub End إذا 'قم بتخزين المساحات ككائنات نطاق منفصلة NumAreas = Selection.Areas.Count ReDim SelAreas (1 To NumAreas) لـ i = 1 To NumAreas Set SelAreas (i) = Selection.Areas (i) Next' حدد الجزء العلوي الأيسر الخلية في التحديد المتعدد TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 To NumAreas If SelAreas (i) .Row <TopRow ثم TopRow = SelAreas (i) .Row If SelAreas (i) .Column <LeftCol ثم LeftCol = SelAreas (i) .Column Next Set UpperLeft = Cells (TopRow، LeftCol) 'احصل على عنوان اللصق عند الخطأ واستئناف المجموعة التالية PasteRange = Application.InputBox _ (موجه: = "حدد الخلية اليسرى العلوية للصق range: "، _ Title: =" Copy Mutliple Selection "، _ Type: = 8) عند الخطأ ، انتقل إلى 0 'اخرج إذا تم الإلغاء إذا تم الإلغاء إذا تم إلغاء TypeName (PasteRange) <>" Range "ثم قم بإنهاء Sub' تأكد من أن الخلية اليسرى العلوية هي تم استخدام Set PasteRange = PasteRange.Range ("A1") 'تحقق من نطاق اللصق للبيانات الموجودة NonEmptyCellCount = 0 لـ i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel المساحات (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Range (PasteRange.Offset (RowOffset، ColOffset)، _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - 1، _A ColOffset + (i) .Columns.Count - 1))) التالي i 'إذا لم يكن نطاق اللصق فارغًا ، فاحذر المستخدم إذا كان NonEmptyCellCount <> 0 ثم _ If MsgBox ("هل تريد الكتابة فوق البيانات الموجودة؟" ، vbQuestion + vbYesNo ، _ "نسخ تحديد متعدد ") <> vbYes ثم اخرج من Sub 'انسخ والصق كل منطقة من أجل i = 1 إلى NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i). نسخ PasteRange.Offset ( RowOffset ، ColOffset) التالي i End Sub
3. ثم انقر فوق يجري زر لتشغيل الكود.
4. والآن يرجى تحديد خلية للصق النطاقات في الفتح نسخ تحديدات متعددة مربع الحوار ، وانقر فوق OK زر. انظر لقطة الشاشة:
انسخ بسرعة نطاقات متعددة محددة من ورقة عمل واحدة
• نسخ نطاقات متعددة فائدة كوتولس ل إكسيل يمكن أن تساعدك في نسخ نطاقات متعددة بسهولة من ورقة العمل النشطة بسرعة. يرجى القيام بما يلي:
كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن
1. حدد النطاقات التي تريد استخدامها واحدًا تلو الآخر دون الضغط على CTRL مفتاح ، ثم انقر فوق كوتولس > نسخ النطاقات. انظر لقطة الشاشة:
2. في نسخ نطاقات متعددة مربع الحوار ، تحقق جميع الخيار من لصق خاص ، ثم انقر فوق طيب بأوتون. انظر لقطة الشاشة أعلاه:
ملاحظة: إذا كنت تريد الاحتفاظ بارتفاع الصف وعرض العمود كنطاقات أصلية ، فيرجى التحقق بما في ذلك ارتفاع الصف الخيار و بما في ذلك عرض العمود الخيار في مربع الحوار نسخ نطاقات متعددة.
3. وحدد خلية للصق النطاقات في مربع المطالبة التالي ، وانقر فوق OK .
والآن سيتم لصق جميع النطاقات المحددة في الخلية المحددة بنفس ارتفاع الصف وعرض العمود مثل التحديدات الأصلية.
انقر هنا لمزيد من المعلومات حول أداة نسخ النطاقات المتعددة
كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن
نسخ نطاقات متعددة من العديد من أوراق العمل / المصنفات
يوفر Kutools for Excel آخر اجمع أوراق العمل أداة لنسخ نطاقات متعددة من العديد من أوراق العمل أو العديد من المصنفات بسهولة في Excel. يرجى القيام بما يلي:
كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن
1. انقر كوتولس بلس > دمج.
2. في مربع الحوار "دمج أوراق العمل - الخطوة 1 من 3" ، يرجى التحقق من اجمع أوراق عمل متعددة من مصنف في ورقة عمل واحدة الخيار، وانقر فوق التالى .
3. في مربع الحوار Combine Worksheets - Step 2 من 3 ، يرجى القيام بما يلي:
(1) حدد المصنف في ملف قائمة المصنفات ، ثم انقر فوق تصفح زر خلف كل ورقة عمل لتحديد النطاق من كل ورقة عمل ؛
(2) انقر فوق أضف لإضافة المصنفات الأخرى التي ستقوم بنسخ النطاقات منها ، ثم كرر أعلاه (1) لتحديد النطاقات في المصنف الإضافي.
(3) انقر فوق نهاية .
كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن
4. ثم يظهر مربع حوار Kutools for excel ويطلب حفظ سيناريو المجموعة. الرجاء النقر فوق نعم زر أو لا زر ما تحتاجه.
حتى الآن ، تم نسخ جميع النطاقات المحددة من أوراق عمل أو مصنفات متعددة ولصقها في مصنف جديد.
عرض توضيحي: نسخ نطاقات متعددة محددة من ورقة عمل واحدة
عرض توضيحي: نسخ نطاقات متعددة محددة من العديد من المصنفات / أوراق العمل
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

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














