VBA Excel无法在中断模式下执行代码？

Herman Lee Tzer Her 发表于 Dev

赫尔曼·李·泽泽·赫尔（Herman Lee Tzer Her）

我的代码中不断出现此错误：

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中，依此类推。我在这里做错了什么？请让我知道，任何指向正确方向的指针都将非常有用。

我正在尝试为此创建一个按钮，当单击该按钮时，它将贯穿我的程序并开始计算和显示。

用户4039065

这就是我所相信的。

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返回到您的工作表。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。