使用.Formula求和不断变化的单元格范围

Question

我正试图通过将第一个"x"个值相加，然后将下一个"x(个值相加来填充一个表。

本质上是这样的：=SUM(Ax:Ay(，其中x和y是行号

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"。