我嘗試用公式解決這個問題，感覺不太完美，要完美還是VBA吧。我的解決思路如下，你可以參考看看。

VBA法

Sub 自動計算()

Dim i As Integer

Dim j As Double

i = 1

j = 0

Do While ActiveSheet.Range("a" & i).Value <> "+"

If ActiveSheet.Range("a" & i).Value = "asefadf" Then

j = 0

Else

If IsNumeric(ActiveSheet.Range("a" & i).Value) Then

j = j + ActiveSheet.Range("a" & i).Value

If ActiveSheet.Range("a" & i).Value = "" Then

If j = 0 Then

ActiveSheet.Range("a" & i).Value = ""

Else

ActiveSheet.Range("a" & i).Value = j

j = 0

End If

Else

End If

End If

End If

i = i + 1

Loop

End Sub

公式法

2、建立輔助列並寫好公式，用於判定合計區域。

3、全選需要輸入計算值的空格單元格，輸入公式後，ctrl+enter。

這是案例截圖

這是公式截圖