VBA Excel不能在分解模式下执行代码？

我一直在我的代码中得到这个错误：

Sub Button2_Click() Dim start As Integer Dim i As Integer Dim j As Integer Dim k As Integer Dim amount As Integer amount = 0 Dim answer As Range Set answer = Range("K22:K28") For k = Range("K22").Row To Range("K28").Row For j = Range("B11").Row To Range("B371").Row Step 7 amount = amount + j Next k = amount amount = 0 Next End Sub 

我在这段代码中要做的是循环遍历B列的每个7个实例，获取它们的值并将它们汇总在一起，将总和存储在K22开始的单元格中，然后从下一个B单元格开始循环，在这种情况下B12，B12的和存储在K23中等等。 我在这里做错了什么？ 请让我知道，任何指向正确的方向将是伟大的。

我试图做一个button，当点击button将通过我的程序运行，并开始计算和显示。

Answer 1

这是我相信你写的。

 Sub Button2_Click() Dim b As Long, k As Long Dim amount As Double For k = 22 To 28 For b = 11 + (k - 22) To 371 + (k - 22) Step 7 amount = amount + Range("B" & b) Next b Range("K" & k) = amount amount = 0 Next k End Sub 

在VBE中更改它之后，使用Alt + Q返回到工作表。