= Сумма формулы VBA.Нужна петля

Question

Электронная таблица

Я пытаюсь вставить новую формулу суммы в столбец P, которая суммирует соответствующие значения в столбце S. Этот процесс будет повторяться, как вы увидите на изображениимою таблицу я приложил.Любые идеи для создания цикла, чтобы сделать это?

Обновление: я выяснил цикл, который будет делать это, вот мой код.

Sub COMPLETE()

TotalRow = 0


SumEnd = 0


For cur_row = 3 To 174




If IsEmpty(Cells(cur_row, 19)) = True Then

If cur_row = 3 Then

TotalRow = 3

Counts = -1

Else

Cells(TotalRow, 25) = "=SUM(S" & (SumEnd - Counts) & ":S" & SumEnd & " )"


TotalRow = cur_row

Counts = -1

End If



Else:

Counts = Counts + 1


SumEnd = cur_row



 End If




Next cur_row

End Sub

Answer 1

Для примера, который вы привели, поместите эту формулу в ячейку P3 и заполните:

=IF(LEN(S3)=0,SUM(INDIRECT("R"&ROW()+1&"C"&COLUMN(S3)&":R"&ROW()+MATCH(TRUE,INDEX(S4:S$17="",0),0)-1&"C"&COLUMN(S3),FALSE)),"")

Обратите внимание, что если ваши данные выходят за пределы строки 16, вам необходимо изменить "S$ 17 "до одной ячейки ниже последней ячейки в столбце S.

Answer 2

Вы можете использовать сводную таблицу для возобновления данных таким образом:

Сводная таблица

Конфигурации

Isчто ты имеешь ввиду?или вы имели ввиду код VBA?

С уважением