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 

То, что я пытаюсь сделать в этом коде, – это пропустить все 7 экземпляров столбца B, получить их значение и суммировать их вместе, сохранить сумму в ячейках, начиная с K22, и снова запустить цикл из следующей B-ячейки, в этом случае B12, причем сумма B12 должна храниться в K23 и т. д. Что я здесь делаю неправильно? Пожалуйста, дайте мне знать, любые указатели в правильном направлении были бы замечательными.

Я пытаюсь сделать кнопку для этого, когда нажатие кнопки запускается через мою программу и начинает вычислять и отображать.

Это то, что, я считаю, вы пишете.

 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, чтобы вернуться на рабочий лист.

Давайте будем гением компьютера.