表格中一某列连续数据的统计，求用VBA代码

Question

如图A列中连续的零的个数，显示在B列对应的下一个不是零的位置。A列连续的零到空格时的个数结尾的零例图中的＂9＂，显示在B列指定的一个位置，或者是显示在C1

Answer 1

Sub tj_test()

Dim lxZ As Integer

Dim hH As Long

Range(Cells(1, 2), Cells(1000, 2)).ClearContents

hH = 1: lxZ = 0

Do While Cells(hH, 1) <> ""

If Cells(hH, 1) = "爆1" Then

Cells(hH, 2) = lxZ: lxZ = 0

Else

lxZ = lxZ + 1

End If

hH = hH + 1

Loop

End Sub

运行结果如图：

追问

结尾的零，可以统计吗？可以在特定格显示结尾零值的统计吗？这个爆1可以设为不为零的数都可以吗