Note: The other languages of the website are Google-translated. Back to English

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

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


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

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

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

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

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

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

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

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


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

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

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


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

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


كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel ، يمكن تجربتها مجانًا دون قيود في غضون 30 يومًا. تنزيل وتجربة مجانية الآن!

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (14)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد تحديد الصفوف مثل 1 ، 5,6,10 ، XNUMX ، XNUMX. فكيف يمكنني نسخ هذه الصفوف ؟؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في هذه الحالة ، يمكنك فقط تحديد الصفوف ونسخها كالمعتاد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني نسخ الخلية a1 و e5 و g2 وما إلى ذلك ... (أكثر من 1000 خلية في نفس العمود) ولصقها في b1 ، f5 ، h2 (في العمود التالي في الصف نفسه.)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تم العثور أعلاه على شرح لخيارات نسخ نطاقات متعددة مفيد جدًا - شكرًا! لقد استخدمت خيار "الحافظة" لنسخ عدة صفوف. اضطررت إلى تحديد كل مجموعة من الصفوف المتتالية ونسخها ، والانتقال إلى الصف التالي أو مجموعة الصفوف المتتالية ونسخها ، وما إلى ذلك. وانقر فوق "لصق الكل" من "الحافظة" وسيتم نسخ جميع الصفوف إلى هناك بدون أي فجوات! ما أردت بالضبط - شكرا مرة أخرى!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا سوووو - يا له من موقع رائع
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد وجدت أنه إذا كان لديك مستوى مهام الحافظة مفتوحًا ، فيمكنك نسخ صفوف متعددة ببساطة باستخدام ctrl + C ولصقها بالترتيب باستخدام crtl + V باستخدام Excel 2007.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحباً ، هل من الممكن تعديل الكود بحيث يمكن لصق الخلايا المنسوخة في ورقة أخرى؟ الآن تظهر لي رسالة الخطأ "400" عندما أحاول ذلك. أستخدم Office 2010. أيضًا ، هل من الممكن نسخه بحيث يتم حذف الأسطر الفارغة؟ لدي مستند كبير وأنسخ بعض الخلايا بينها مئات الصفوف غير المنسوخة. هذا يجعل الإخراج ضخمًا إلى حد ما.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على الكود ، يعمل بشكل مثالي. لقد أذهلني هذا النقص الغريب في الوظائف داخل Excel عدة مرات في الماضي. عادةً ما يكون حلها أسرع في النهاية ، لكن في هذه الحالة لدي 4000 خلية مشفرة بالألوان بشكل فردي ، لذا فإن أي حل قد يستغرق وقتًا طويلاً ، لذلك أنا ممتن جدًا. ستيف
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! كيف يمكنني استخدام نفس كود فبا أعلاه ولكن بدلاً من مجرد اللصق ، أود لصق خاص للقيم فقط. الجدول الذي أضع القيم (الثوابت) فيه منسق بالفعل وبإجماليات (الصيغ)
شكرا جزيلا مقدما!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا كاترينا ماناهان ،

يرجى فتح نافذة Microsoft Visual Basic للتطبيقات ، وإنشاء وحدة نمطية جديدة ، فقط اضغط على CTRL + V للصق رمز VBA مباشرةً. لن يتم لصق الأرقام التسلسلية قبل الرمز.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً. كود جميل ، يعمل بشكل رائع. هل من الممكن تعديل الكود بطريقة تجعل من الممكن إدخال / لصق صف / نطاقات السوق عدة مرات بدلاً من مرة واحدة فقط؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا جاكوب ،
ربما يمكن لميزة إدراج صفوف العنوان في Kutools for Excel حل مشكلتك.
https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا هناك،
وظيفة رائعة ورمز VBA يعمل بشكل مثالي. هل من الممكن تغيير الكود للصق قيم خاصة؟ إذا كان الأمر كذلك ، فكيف؟
شكر!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا هناك،
رمز رائع ولكن هل تساءلت كيف يمكنني لصق القيم بدلاً من اللصق فقط؟
شكر :)
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL