Форум по VBA и MS Office

Sub макрос()

    Dim rng As Range, RowsCount As Long, okno As Long, polokna As Long, min As Long
    Dim i As Long, ii As Long, var
    Dim top As Long, bot As Long
   
   
    '1. Присваиваем фрагменту "A2:A51" имя "rng", чтобы было удобнее.
    Set rng = Range("B2:C51")
   
    '2. Запись кол-ва элементов в переменную, чтобы было удобнее ориентироваться в коде.
    RowsCount = rng.Rows.Count
   
    '3. Запись окна в переменную "okno", чтобы удобнее читать код.
    okno = Range("G3").value
   
    '4. Запись половины окна в переменную "polokna". Это кол-во элементов сверху и снизу от
        ' текущего элемента.
    polokna = (okno - 1) / 2
   
    '5. Функционал.
    For i = 1 To RowsCount
        '1) Подсчёт кол-ва элементов сверху от текущего элемента.
        top = i - 1
        '2) Подсчёт кол-ва элементов снизу от текущего элемента.
        bot = RowsCount - i
        '3) Выбор, где меньше элементов: сверху или снизу. Где меньше - то ограничивает.
        If top <= bot Then
            min = top
        Else
            min = bot
        End If
        '4) Если кол-во элементов больше полокна, то берётся полокна.
        If min > polokna Then
            min = polokna
        End If
        '5) Сброс переменной от предыдущего использования.
        var = Empty
        '6) Подсчёт суммы элементов, входящих в окно.
        For ii = i - min To i + min
            var = var + rng.Cells(ii, 1).value
        Next ii
        '7) Нахождение среднего.
        var = var / (min * 2 + 1)
        '8) Вставка расчёта в эксель.
        rng.Cells(i, 2).value = var
    Next i

End Sub

' Cброс переменной от предыдущего использования.
        var = Empty
        ' Подсчёт суммы элементов, входящих в окно.
        For j = i - min To i + min
            var = var + rng.Cells(j, 1).Value
        Next j
       
        'Вычисление среднего
        var = var / (min * 2 + 1)
   
        rng.Cells(i, 2).Value = var