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

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

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

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

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

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

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

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات لمدة 30 يومًا ، لا يلزم وجود بطاقة ائتمان! احصل عليه الآن

باستخدام رمز 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 ويطلب حفظ سيناريو المجموعة. الرجاء النقر فوق نعم زر أو لا زر ما تحتاجه.

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