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

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

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

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


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

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

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

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

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

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

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

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


إعلان دمج أوراق الكتب 1

كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 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 زر. انظر لقطة الشاشة:


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

نسخ نطاقات متعددة فائدة كوتولس ل إكسيل يمكن أن تساعدك في نسخ نطاقات متعددة بسهولة من ورقة العمل النشطة بسرعة. يرجى القيام بما يلي:

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

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

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

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

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

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

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

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


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

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

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

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

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

3. في مربع الحوار Combine Worksheets - Step 2 من 3 ، يرجى القيام بما يلي:

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

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

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

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


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

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


كوتولس ل إكسيل: أكثر من 300 أداة مفيدة في متناول يدك! ابدأ تجربتك المجانية لمدة 30 يومًا دون أي قيود على الميزات اليوم. تحميل الآن!

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

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

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

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there,
Great code but wondered how I can paste values rather than just paste?
Thanks :)
This comment was minimized by the moderator on the site
Hi there,
Great post and the VBA code works perfectly. Is it possible to change the code to paste special > values? If so, how?
Thanks!
This comment was minimized by the moderator on the site
Hi. Nice code, works great. Is it possible to modify the code in a way such that it is possible to insert/paste the market row/ranges multiple times instead of just one time?
This comment was minimized by the moderator on the site
Hi Jacob,
Maybe this Insert Title Rows feature of Kutools for Excel can solve your problem.
https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
This comment was minimized by the moderator on the site
Hi! How do I use the same VBA Code above but instead of simply pasting, I would like it to paste special for just the values. The table I am putting the values (constants) into is already formatted and with totals (formulas)
Thanks so much in advance!
This comment was minimized by the moderator on the site
Hi Katrina Manahan,

Please open the Microsoft Visual Basic for applications window, and create a new Module, just press CTRL + V to paste the VBA code directly. The sequence numbers before code won't be pasted.
This comment was minimized by the moderator on the site
Thanks for the code, works perfectly. This odd lack of function within Excel has stumped me many times in the past. It's normally quicker in the end to work around it, but in this case I have 4000 individually colour-coded cells so any work-around would have taken a long time, so I'm very grateful. Steve
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations