Vba: كيفية لصق القيم فقط بدون تنسيق

يمكنك استخدام بناء الجملة التالي في VBA لنسخ نطاق معين من الخلايا ولصق القيم فقط في موقع جديد بدون تنسيق:

 Sub PasteNoFormatting()

Range(" A1:D9 ").Copy
Range(" A12 ").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

سيقوم هذا الماكرو المحدد بنسخ الخلايا الموجودة في النطاق A1:D9 ولصق قيم الخلية دون أي تنسيق في النطاق بدءًا من الخلية A12 .

ملاحظة : يحدد السطر Application.CutCopyMode = False أنه يجب تعطيل وضع القص والنسخ بعد تنفيذ الماكرو.

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: لصق القيم فقط بدون التنسيق باستخدام VBA

لنفترض أن لدينا مجموعة البيانات التالية في Excel والتي تحتوي على معلومات حول العديد من لاعبي كرة السلة:

لنفترض أننا نريد نسخ ولصق جميع القيم الموجودة في النطاق A1:D9 إلى موقع جديد بدون التنسيق.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 Sub PasteNoFormatting()

Range(" A1:D9 ").Copy
Range(" A12 ").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

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

ملاحظة : يمكنك العثور على الوثائق الكاملة لأسلوب VBA PasteSpecial هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

VBA: كيفية العثور على آخر سطر مستخدم
فبا: كيفية حساب عدد الصفوف في النطاق
فبا: كيفية حساب عدد الأعمدة المستخدمة