نسخ البيانات إلى مصنف آخر في Excel

عند معالجة البيانات في Microsoft Excel ، فإن أمر نقل أو نسخ ورقة هو وسيلة سريعة وبسيطة لنقل أو نسخ الأوراق بأكملها إلى مواقع أخرى إما في نفس الملف أو في مصنف مختلف. بدلاً من ذلك ، يمكنك استخدام VBA (Visual Basic for Applications) لأتمتة المهمة وجعلها أقل مملة.

ستعرض هذه المقالة لكلا الطريقتين من نسخ البيانات إلى مصنف آخر في Microsoft Excel.

  • نقل أو نسخ البيانات في نفس المصنف
  • نقل أو نسخ البيانات في مصنفات مختلفة
  • نقل أو نسخ البيانات باستخدام VBA

نقل أو نسخ البيانات في نفس المصنف

الخطوة الأولى هي تحديد الورقة (الأوراق) التي ترغب في نقلها أو نسخها. لتحديد أوراق متعددة ، حدد الورقة الأولى ببساطة ، ثم اضغط باستمرار على مفتاح التحكم أثناء النقر فوق الأوراق الإضافية التي ترغب في نسخها.

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

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

لنسخ الأوراق بدلاً من نقلها ، حدد خانة الاختيار " إنشاء نسخة " الموجودة في مربع الحوار " نقل" أو "نسخ ".

نقل أو نسخ البيانات في مصنفات مختلفة

إذا كنت ترغب في نقل أو نسخ أوراق عمل Excel إلى مصنف آخر ، يجب عليك أولاً التأكد من أن المصنف الهدف مفتوح في نفس الإصدار من Microsoft Excel.

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

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

في القائمة " قبل" ، يمكنك إما النقر فوق الورقة التي تريد إدراج الأوراق التي تم نقلها أو نسخها قبل ذلك ، أو يمكنك النقر فوق " نقل" لإنهاء لإدراج الأوراق بعد الورقة الأخيرة في مصنفك.

نقل أو نسخ البيانات باستخدام VBA

CopyOpenItems الفرعية ()

'

CopyOpenItems ماكرو

نسخ العناصر المفتوحة إلى ورقة.

'

اختصار لوحة المفاتيح: Ctrl + Shift + O

'

Dim wbTarget As Workbook 'workbook حيث يتم لصق البيانات

Dim wbThis Asbook مصنف من حيث يتم نسخ البيانات

Dim strName As String (اسم السلسلة) لمصنف الورقة / الهدف المصدر

تعيين إلى المصنف النشط الحالي (الكتاب المصدر)

قم بتعيين wbThis = ActiveWorkbook

الحصول على اسم ورقة نشط من الكتاب

strName = ActiveSheet.Name

فتح مصنف له نفس اسم اسم الورقة

قم بتعيين wbTarget = Workbooks.Open ("C: \ filepath \" & strName & ".xlsx")

حدد الخلية A1 في الكتاب المستهدف

wbTarget.Range ( "A1"). اختر

القيم الحالية واضحة تشكل الكتاب المستهدف

wbTarget.Range ( "A1: M51") ClearContents.

تفعيل الكتاب المصدر

wbThis.Activate

مسح أي شيء على الحافظة لزيادة الذاكرة المتاحة

Application.CutCopyMode = خطأ

نسخ النطاق من كتاب المصدر

wbThis.Range. ( "A12: M62") نسخة

لصق البيانات الموجودة في الكتاب المستهدف

wbTarget.Range ( "A1"). PasteSpecial

مسح أي شيء على الحافظة لزيادة الذاكرة المتاحة

Application.CutCopyMode = خطأ

احفظ الكتاب المستهدف

wbTarget.Save

أغلق المصنف

wbTarget.Close

تفعيل الكتاب المصدر مرة أخرى

wbThis.Activate

'مسح الذاكرة

تعيين wbTarget = لا شيء

اضبط wbThis = لا شيء

نهاية الفرعية

المقال السابق المقالة القادمة

نصائح الأعلى