کمک درنوشتن دستور

[khorasan66]

سلام علیکم
در Sheet1 فایل پیوست لیست کالاهای موجود درج شده است که تعداد هر کالا معین شده است .
جهت ثبت سریال هر کالا که یک کد 16 رقمی اختصاصی می باشد نیاز دارم هر ردیف از کالاها بر اساس تعدادش
در Sheet2 تکرار شود :
یعنی اگر
در Sheet1 از کالای ردیف اول 2 دستگاه موجود می باشد
در Sheet2 ردیف اول 2 بار زیر هم تکرار شود
الی آخر
با تشکر

[iranweld]

با سلام

این کد را تست کنید


Sub test()

z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

For i = 2 To z1

z2 = Sheet1.Range("b" & i)

z3 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1

If z2 > 0 Then

For j = z3 To z3 + z2 - 1

Sheet2.Range("a" & j) = Sheet1.Range("a" & i)

Next

End If

Next


End Sub