Excel - كرر الصفوف عددًا محددًا من المرات

يمكن تكرار الصفوف في ورقة عمل Excel عدد محدد من المرات بمساعدة دالة معرفة من قبل المستخدم. يمكن كتابة وظيفة معرفة من قبل المستخدم لتكرار الصفوف في عدد محدد من المرات . قد تكون هناك حاجة إلى بعض المعرفة حول مفاهيم البرمجة مثل شروط "if-then-else" والقيام بحلقات أثناء كتابة هذه الوظيفة. يمكن استخدام الأمر Selection.insert لإدراج صفوف في ورقة العمل من برنامج Excel Office. ليست هناك حاجة لكتابة الشفرة من البداية لأن مقتطفات الشفرة متاحة مجانًا للاستخدام في أوراق العمل. ومع ذلك ، يجب التأكد من أن الوظيفة المعرفة من قبل المستخدم أو الروتين الفرعي لتكرار الصفوف يتم إدخال عدد محدد من المرات في المكان المناسب.

  • القضية
  • حل
  • ملحوظة

القضية

لا أحد يعرف كيفية تكرار الصفوف في جدول بيانات بعدد معين من المرات المحددة في الخلية الموجودة في هذا الصف؟

أي من هذا الجدول:

 العمود أ العمود ب

بيتر 3

جيمس 7

ديفيد 4

أحتاج إلى إنتاج هذا الجدول:

 العمود أ العمود ب

بيتر 3

بيتر 3

بيتر 3

جيمس 7

جيمس 7

جيمس 7

جيمس 7

جيمس 7

جيمس 7

جيمس 7

ديفيد 4

ديفيد 4

ديفيد 4

ديفيد 4

أي أفكار حول طريقة بسيطة للقيام بذلك؟

حل

جرب هذا:

 نسخ البيانات الفرعية ()

خافت low طالما

قاتمة RepeatFactor كما البديل

lRow = 1

افعل (الخلايا (lRow ، "A") "")

RepeatFactor = الخلايا (lRow ، "B")

إذا ((RepeatFactor> 1) و IsNumeric (RepeatFactor)) ثم

النطاق (الخلايا (lRow ، "A") ، الخلايا (lRow ، "B"))

النطاق (الخلايا (lRow + 1 ، "A") ، الخلايا (lRow + RepeatFactor - 1 ، "B")). حدد

Selection.Insert Shift: = xlDown

lRow = lRow + RepeatFactor - 1

إنهاء إذا

lRow = lRow + 1

عقدة

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

ملحوظة

بفضل rizvisa1 لهذه النصيحة في المنتدى.
المقال السابق المقالة القادمة

نصائح الأعلى