Используйте. Формулу для суммирования изменяющегося диапазона ячеек

Question

Я пытаюсь заполнить таблицу путем суммирования первого числа значений «х», а затем следующего числа значений «х».

По существу это: = SUM (Ax: Ay), где х иу - номера строк

Sheets(1).Range("B"+i).Formula = "=SUM(A" & x & ":A" & y & ")"

Вот как выглядит мой фактический код:

Private Sub ScrollBar1_Change()

Application.ScreenUpdating = False

Dim slider_val As Long
Dim output_tbl As ListObject
Dim data_tbl As ListObject
Dim i As Long
Dim j As Long
Dim start As Long
Dim finish As Long

Set data_tbl = Sheets("Data").ListObjects("DataTable")
Set output_tbl = Sheets("Slider").ListObjects("OutputTable")
slider_val = Sheets("Slider").Range("A5").Value

start = 2

    For i = 1 To 12

        finish = start + slider_val

        Sheets("Slider").Range("B" & j).Formula = "=SUM(Data!K" & start & ":K" & finish & ")"

        j = j + 1
        start = finish + 1

    Next i

Application.ScreenUpdating = True
End Sub

При попытке вызвать ошибку «Ошибка приложения или объекта»запустите этот код.

Answer 1

Спасибо всем за помощь, проблема была в том, что я еще не определил "j".