我嘗試用公式解決這個問題,感覺不太完美,要完美還是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
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 = ""
ActiveSheet.Range("a" & i).Value = j
End If
i = i + 1
Loop
End Sub
公式法
2、建立輔助列並寫好公式,用於判定合計區域。
3、全選需要輸入計算值的空格單元格,輸入公式後,ctrl+enter。
這是案例截圖
這是公式截圖
我嘗試用公式解決這個問題,感覺不太完美,要完美還是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。
這是案例截圖
這是公式截圖