Excel - ماكرو لنسخ البيانات ولصقها في الخلية الفارغة التالية

القضية

لدي ورقتان في مصنف. الورقة 1 للملخص والصفحة 2 للبيانات الأولية. أحتاج إلى تحديث / إدراج / نسخ البيانات في الورقة 2 إلى الورقة 1. أدناه هو رمز الماكرو عينة:

 التلخيص الفرعي () النطاق ("A6: AT6"). حدد Selection.Copy Sheets ("ImprovementLog"). حدد النطاق ("B283"). حدد Select.PasteSpecial Paste: = xlValues ​​، العملية: = xlNone ، SkipBlanks: = _ خطأ ، تبديل: = نطاق خطأ ("B283"). حدد End Sub 

تعمل التعليمة البرمجية أعلاه ولكن في كل مرة أقوم فيها بتغيير البيانات في الورقة 2 ، تحل الورقة 1 محل بياناتها فقط. ما أحتاجه هو في كل مرة أقوم فيها بتغيير البيانات في الورقة 2 ، يجب إضافتها (إلحاق) في الورقة 1.

حل

تحتاج إلى معرفة آخر صف مستخدم. النطاق هنا ("B283"). حدد البحث عن آخر خلية مستخدمة في العمود B ، ثم حدد خلية واحدة تحتها

 lMaxRows = خلايا (Rows.Count ، "B"). End (xlUp) .Row Range ("B" & lMaxRows +1) .select 

بفضل rizvisa1 لهذه النصيحة.