[حل شده] درون یابی با vba

[amir0914]

با سلام خدمت دوستان محترم. من یک ستون اعداد دارم که شامل تعداد زیادی بازه ثابت هست و میخوام که داخل این بازه ها درون یابی بشه، مثل فایل نمونه که چند بازه رو خودم دستی حساب کردم به این ترتیب که عدد دوم بازه منهای عدد اول بازه و نتیجه تقسیم بر 5 می شود و این عدد به دست آمده در هر بازه با عدد قبلی جمع می شود تا به عدد دوم بازه برسیم. میخوام که این کارها اتوماتیک شود. خیلی ممنون

[Amir Ghasemiyan]

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

Sub Interpolation_EI()
i = 1
While 1
    a = Range("A" & i).Value
    b = Range("A" & i).Offset(5, 0).Value
    If b = "" Then Exit Sub
    step = (b - a) / 5
    For j = 1 To 4
        Range("A" & i).Offset(j, 0).Value = a + j * step
    Next j
    i = i + 5
Wend
End Sub