-3

Введите ступенчатое среднее между 2 числами (27 и 10)

10  0
    1
    2
    3
    4
    5
    6
    7
    8
    9
27  10
    11
    12
    13
    14
    15
    16
    17
    18
    19
47  20
    21
    22
    23
    24
    25
    26
    27
    28
    29
72  30
    31
    32
    33
    34
    35
    36
    37
    38
    39
102 40

1 ответ1

3

Это может помочь вам. Если у вас есть две ячейки в столбце со значениями 10 и 27 и между ними есть пустые ячейки, и вы хотите заполнить эти ячейки "плавным" способом:

Затем выберите часть столбца, содержащую ячейки, и запустите этот короткий макрос:

Sub FillInTheBlanks()
    Dim incr As Double, r As Range, rr As Range

    Set r = Selection
    incr = (r(r.Count) - r(1)) / (r(r.Count).Row - r(1).Row)

    For i = 2 To r.Count - 1
        r(i).Value = r(i).Offset(-1, 0).Value + incr
    Next i
End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .