[حل شده] تکرار یک سلول بر اساس عدد سلول کناری

[sasa1111]

سلام
من یه فایل دارم که چند تا کدملی تو ستون a هست و در ستون b روبروی هر کدملی یه عدد هست

میخام به نسبت اعداد ستون b هر کد ملی تکرار بشه در ستون e

باتشکر

[iranweld]

با سلام

فایل پیوست را بررسی کنید

اگر در یک سلول تکرار شود فایل دوم را بررسی کنید

[sasa1111]

تشکر دوست عزیز
میخام سطر در ستون اعمال بشه
یعنی اینجوری

[Amir Ghasemiyan]

تشکر دوست عزیز
میخام سطر در ستون اعمال بشه
یعنی اینجوری

[ATTACH=CONFIG]21106[/ATTACH]

سلام دوست عزيز
اگر محدوديت نداريد ميتونيد از اين كد vba استفاده كنيد

Sub EI_repeat()
Dim cel As Range
r = 1
For Each cel In Range("[COLOR="#FF0000"]A1:A5")
    For i = 1 To cel.Offset(, 1).Value
        Range("C" & r) = cel.Value
        r = r + 1
    Next i
Next cel
End Sub

قسمتي كه قرمز كردم محدوده كدهاي ملي هست[/COLOR]

[sasa1111]

سلام دوست عزيز
اگر محدوديت نداريد ميتونيد از اين كد vba استفاده كنيد

Sub EI_repeat()
Dim cel As Range
r = 1
For Each cel In Range("[COLOR=#FF0000]A1:A5")
    For i = 1 To cel.Offset(, 1).Value
        Range("C" & r) = cel.Value
        r = r + 1
    Next i
Next cel
End Sub

قسمتي كه قرمز كردم محدوده كدهاي ملي هست[/COLOR]

سلام
خیلی عالی بود
خدا خیرتون بده
تشکر