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

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

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


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

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

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
This comment was minimized by the moderator on the site
Hi, Is it possible to adjust the code so that the copied cells can be pasted in another sheet? Now I get the error message "400" when I attempt this. I use Office 2010. Also, is it possible to copy so that empty lines are deleted? I have a big document and I copy some cells with hundreds of non-copied rows between them. This makes for a rather bulky output.
This comment was minimized by the moderator on the site
I found that if you have the Clipboard task plane open you can copy multiple rows simply using ctrl+C and paste them in order with crtl+V using Excel 2007.
This comment was minimized by the moderator on the site
Thank you SOOOOOO much - what a great site
This comment was minimized by the moderator on the site
Found above explanation of options to copy multiple ranges very helpful - thanks! I used the 'clipboard' option to copy multiple rows. Had to select each group of consecutive rows and copy it, move on and select next row or group of consecutive rows and copy it, etc.. But after this its easy, go to where you want to paste them, eg a new sheet, and click 'Paste all' from the Clipboard and all the rows are copied to there with out any gaps! Exactly what I wanted - thanks again!
This comment was minimized by the moderator on the site
I want to select the rows like 1, 5,6,10. so how can i copy these rows ???
This comment was minimized by the moderator on the site
In this case you can just select the rows and copy them as usual.
This comment was minimized by the moderator on the site
How can I copy cell a1, e5, g2, and so on.... (more than 1000 cells in same column) and paste them into b1, f5, h2 (right into the next column in same row.)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations