[حل شده] تکرار ردیفها

[habib100]

با سلام و خسته نباشید
فایلی اکسلی دارم شامل یه سری داده که در ستون تعداد عددی ثبت شده است ، می خواهم هر ردیف را به تعداد ستون e یعنی تعداد داشته باشم یعنی تکرار شود . از ردیف 2 یک ردیف ، ردیف 3 : دو ردیف ازش داشته باشم 4 یک ردیف و ردیف5 سه ردیف . تعداد ردیف ها زیاد می باشد و ستونها نیز زیادتر از این فایل نمونه می باشند خروجی می خواهم به شکل شیت 2 باشد و اگر در ستون e تعداد را 1 بزند خیلی بهتر است. با تشکر

[iranweld]

با سلام

از ماکرو ذیل استفاده کنید

Sub test()

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row + 1

For I = 2 To z1

For j = 1 To Range("e" & I)

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

Sheet1.Range("A" & I & ":e" & I).Copy Destination:=Sheet2.Range("A" & Z2)

Sheet2.Range("e" & Z2) = 1

Next j

Next I

Sheet2.Select

End Sub 

[habib100]

خیلی ممنونم
من می تونم این کد رو روی فایل خودم که ستونهاش خیلی زیادتر است و ستونی که مشابه ستون e می باشد ستون ab می باشد و ردیف هایش 25000 تا می باشد بسط دهم در کد php داده شده را تغییر دهم؟

[iranweld]

بله میتوانید

Sub test()

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row + 1

For I = 2 To z1

For j = 1 To Range("AB" & I)

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

Sheet1.Range("A" & I & ":AB" & I).Copy Destination:=Sheet2.Range("A" & Z2)

Sheet2.Range("AB" & Z2) = 1

Next j

Next I

Sheet2.Select

End Sub 

[habib100]

سلام
ممنونم خیلی زحمت کشیدید.