在Office 365中，您也可以使用扫描：=SUM(N(SCAN(,A1:A16,LAMBDA(a,b,IF(b=0,a+1,0)))=1))
根据您的需要更改范围
在旧版Excel中，您可以在B2中使用此选项，假设范围从A2开始：=IF(OR(A1,A1="")*EXACT(A2,0),IFERROR(LOOKUP(9^9,B$1:B1,B$1:B1+1),1),"")将此选项向下拖动。

作为公式（仅适用于X365，因为它使用Let）

=LET(x;IF(AND(A2=0;A1<>0);1;0);IF(x=1;SUM(B$1:B1)+1;""))

字符串
（假设你的数字从A2开始）。
第一个IF在所有单元格包含0且上面的单元格不为0时将其“标记”为1。第二个IF检查此值是否为1，如果是，则将上面的所有值相加（并加1）。

一个可能的解决方案：

Sub Doit()
Dim Thing As Range
Dim zCount As Integer
Dim iLastRow As Integer
Dim i As Integer
Set Thing = Range("A1")
iLastRow = ActiveSheet.UsedRange.Rows.Count
Thing.Select
For i = 0 To iLastRow - 2
    
    If Thing.Offset(i, 0) = 0 And Thing.Offset(i + 1, 0) = 0 Then
    
        Thing.Offset(i, 0).Select
        zCount = zCount + 1
        Thing.Offset(i, 1).Value = zCount
    
        Do Until Thing.Offset(i + 1, 0) <> 0 Or i > iLastRow - 2
            i = i + 1
        Loop
        
    End If
Next
End Sub

字符串