كيفية تكرار الصفوف استنادا إلى قيمة الخلية في عمود؟

على سبيل المثال، لدي مجموعة من البيانات التي تحتوي على قائمة بالأرقام في العمود D، والآن، أريد تكرار الصفوف بالكامل عدة مرات استنادا إلى القيم الرقمية في العمود D للحصول على النتيجة التالية. كيف يمكنني نسخ الصفوف عدة مرات استنادا إلى قيم الخلايا في إكسيل؟

تكرار الصفوف عدة مرات استنادا إلى قيم الخلايا مع التعليمات البرمجية فبا

تكرار الصفوف عدة مرات استنادا إلى قيم الخلايا مع التعليمات البرمجية فبا

لنسخ وتكرار الصفوف بأكملها عدة مرات استنادا إلى قيم الخلايا، قد تساعدك التعليمات البرمجية فبا التالية، يرجى القيام بما يلي:

1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في وحدة نافذة او شباك.

رمز فبا: صفوف مكررة عدة مرات استنادا إلى قيمة الخلية:

Sub CopyData()
'Updateby Extendoffice 20160922
    Dim xRow As Long
    Dim VInSertNum As Variant
    xRow = 1
    Application.ScreenUpdating = False
    Do While (Cells(xRow, "A") <> "")
        VInSertNum = Cells(xRow, "D")
        If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
           Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
           Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
           Selection.Insert Shift:=xlDown
           xRow = xRow + VInSertNum - 1
        End If
        xRow = xRow + 1
    Loop
    Application.ScreenUpdating = False
End Sub

3. ثم اضغط F5 مفتاح تشغيل هذا الرمز، تم تكرار الصفوف بأكملها عدة مرات استنادا إلى قيمة الخلية في العمود D ما تحتاج إليه.

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

أدوات الإنتاجية الموصى بها

تبويب أوفيس

يمكنك جلب علامات التبويب المفيدة إلى إكسيل وبرامج أوفيس الأخرى، تماما مثل كروم و فيريفوكس و إنترنيت إكسبلورر الجديد.

كوتولس ل إكسيل