پرسش تبدیل یک به مبلغ به چند مبلغ بر مبنای یک عدد ثابت

[shadishahidi]

سلام خسته نباشید
طبق پیوست یه فایل اکسل دارم که میخوام توی ستون مبلغ ، مبالغی که بالاتر از پانصد میلیون ریال و دریک سطرهستن مثلا مبلغ یک میلیارد و سیصد میلیون ریال به 3 سطر تقسیم بشه که سطر اول 500 میلیون ریال سطر دوم پانصد میلیون ریال و سطر سوم 300 میلیون ریال تقسیم بشه ( جمعا یک میلیاردو سیصد میلیون ریال ) و سایر اطلاعات هم در سه سطر بشینه ( مبنا پانصد میلیون ریال هستش )
نمونه رو توی شیت 2 گذاشتم
سپاس

[saed.rasa]

سلام
به انجمن اکسل ایران خوش آمدید

تست کنید لطفا!

=IFERROR(IF(INDEX(Tedad,MATCH(B2,Name,0))=COUNTIF($B$1:B2,$B2),INDEX(Amuont,MATCH(B2,Name,0)),Item),"")

[shadishahidi]

سلام ممنون
خیلی عالی و جالب بود زحمت کشیدید
از طریق vba نمیشد ؟ به خاطر این میگم که تعداد داده های من ممکن بعضی مواقع به ده هزار تا هم برسه در واقع میخوام فقط داده رو جایگزین داده قبلی بکنم و خروجی رو بهم سریع بده

[generalsamad]

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

Sub Tajziyeh_Mablagh()
On Error Resume Next
Sheet2.Range("A2:D1000000").ClearContents
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlManual

Dim i, j, x, y, LastRow As Integer
LastRow = Sheet1.Cells(Sheet1.Rows.Count, "C").End(xlUp).Row
x = 2
For i = 2 To LastRow
    If Sheet1.Range("C" & i).Value > Sheet1.Range("I2").Value Then
        y = Int(Sheet1.Range("C" & i) / Sheet1.Range("i2"))
        For j = x To x + y - 1
            Sheet2.Range("A" & j) = Sheet1.Range("A" & i).Value
            Sheet2.Range("B" & j) = Sheet1.Range("B" & i).Value
            Sheet2.Range("C" & j) = Sheet1.Range("I2").Value
            Sheet2.Range("D" & j) = Sheet1.Range("D" & i).Value
        Next j
        x = x + y
        Sheet2.Range("A" & x) = Sheet1.Range("A" & i).Value
        Sheet2.Range("B" & x) = Sheet1.Range("B" & i).Value
        'Sheet2.Range("C" & x) = Sheet1.Range("C" & i) Mod Sheet1.Range("i2")
        Sheet2.Range("C" & x) = Sheet1.Range("C" & i) - (Sheet1.Range("i2") * y)
        Sheet2.Range("D" & x) = Sheet1.Range("D" & i).Value
    Else
        Sheet2.Range("A" & x) = Sheet1.Range("A" & i).Value
        Sheet2.Range("B" & x) = Sheet1.Range("B" & i).Value
        Sheet2.Range("C" & x) = Sheet1.Range("C" & i).Value
        Sheet2.Range("D" & x) = Sheet1.Range("D" & i).Value
    End If
    x = x + 1
Next i

Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlAutomatic

End Sub 

فایل ضمیمه گردید