Нужно включить закладку "Разработчик",
слева вверху вторая кнопка "Макросы" -> создать (вводишь любое название макроса для активации кнопки "создать", затем удаляешь всё в окне)
и копируешь код:
Sub multicalcblock()
Debug.Print ("RUN multicalсblock")
Dim markblock As String
scanline = 1
'Cacl column
calcclmn = 3
'Set start position
markblock = Cells(scanline, 1)
While Not IsNumeric(markblock)
scanline = scanline + 1
markblock = Cells(scanline, 1)
Wend
'start calculation
Debug.Print ("Start at line " & scanline)
While scanline <= 65535 And (Cells(scanline, 1) <> "" Or Cells(scanline, calcclmn) <> "")
markblock = Cells(scanline, 1)
If IsNumeric(markblock) Then
clcrwcells = scanline
Cells(clcrwcells, calcclmn) = 0
Debug.Print ("Block at line " & clcrwcells)
scanline = scanline + 1
Else
Cells(clcrwcells, calcclmn) = Cells(clcrwcells, calcclmn) + Cells(scanline, calcclmn)
scanline = scanline + 1
End If
Wend
Debug.Print ("Stop at line " & scanline)
End Sub
Эта программа прокручивает по первому столбцу ячейки сстроки до первого числа, затем на этой строке в столбце 3 обнуляет ячейку, и суммирует в неё идущие ниже ячейки до следующей строки с числом в столбце 1, тогда обнуляет ячейку в столбце 3 и так же суммирует нижеследующие ячейки до числа в столбце 1; и всё повторяет пока не встретит всю пустую строку.
Потом возвращаешься на лист эксель и через кнопку "Макросы" снова заходишь в панель управления макросами, там видишь созданный макрос "multicaclblock" который можно выполнить - он просчитает весь текущий (открытый) лист.
Добавлено спустя 13 минут 22 секунды:
Только зачем считать, если в примере уже всё посчитано? Или это полу-вручную?