求和

幕曦朗化

请问求和到空白位置。
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
网上有个大神写的代码，可是运行不了

                                       

志尚

=sum(offset(a3,0,0,iferror(match("单价",a3:a18,0),55)

雷小东

没看懂什么意思，直接把求和公式写进就行了。

星空的云

有60多万条，同一列，在两个单价之间，数字的行数是不相等的

赱馬

上传附件

西贝大官人

有60多万条

年华逝水

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

画家张恒久

选中数据 到随后一行ctrl+g 定位空值输入星光大佬的公式ctrl+回车