Excel - ماكرو لإدراج صفوف فارغة

• القضية
• حل

القضية

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

هنا عينة ...

حاليا:

 TITLE1
TITLE2
Title3
Title4 

بعد استخدام ماكرو:

 TITLE1
TITLE2
Title3
Title4

يمكن أن يذهب مقدار الصف فارغ من 20 إلى 40.

حل

A1 هو وجود عناوين.

ثم حاول هذا الماكرو

احتفظ بالملف الأصلي بأمان في مكان ما

أولاً ، قم بإجراء اختبار الماكرو في البيانات التجريبية التي أرسلتها

 اختبار فرعي ()
خافت ي طالما ، ص المدى
j = InputBox ("اكتب عدد الصفوف المراد إدراجها")
مجموعة ص = المدى ("A2")
فعل
النطاق (r.Offset (1 ، 0) ، r.Offset (j ، 0)). EntireRow.Insert
Set r = Cells (r.Row + j + 1، 1)
MsgBox r.Address
إذا كان r.Offset (1، 0) = "" ثم الخروج قم
عقدة
نهاية الفرعية

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