Sub aaa()
For l = 1 To 20
Cells(l, 2) = "空格数为" & l & "的有："
Cells(l, 3) = 0
Next
Cells(21, 2) = "空格数大于20的有："
Cells(21, 3) = 0
i = Range("a65535").End(xlUp).Row
m = 0
For l = 1 To i
k = l
If Cells(l, 1) <> "" Then
m = 1
Else
If m = 1 Then GoTo t1
End If
Next
t1:
If k = i Then GoTo t2
m = 0
For l = k To i
If Cells(l, 1) = "" Then
m = m + 1
n = 1
Else
If n = 1 Then
If m > 20 Then
Cells(21, 3) = Cells(21, 3) + 1
Else
Cells(m, 3) = Cells(m, 3) + 1
End If
n = 0
m = 0
End If
End If
Next
t2:
End Sub
笨办法总比没办法好。有3个步骤（假设A1=1）：
1. B1输入0， B2开始写公式 =IF(A2="",B1+1,0)
2. C1开始写公式，=IF(B2=0,B1,0)，B，C两列的公式向下复制到A列最后一个值为1的行。
3. D1开始写公式，="空格为"&ROW(A1)&"的数量为："&COUNTIF(C:C,ROW(A1))，复制到D20
D1-D20就是你要的数据了。
假设数据在A1:A100中，B1单元格输入以下公式，并按CTRL+SHIFT+ENTER结束，向下复制到B20，分别得到1个间隔、2个间隔……20个间隔的个数，=SUM(N(FREQUENCY(IF(A$1:A$100="",ROW($1:$100)),IF(A$1:A$100,ROW($1:$100)))=ROW(1:1)))
B21的公式改为：
=SUM(N(FREQUENCY(IF(A$1:A$100="",ROW($1:$100)),IF(A$1:A$100,ROW($1:$100)))>20))
表示20个以上的间隔个数。
彩票的遗漏值么？
Excel如何统计函数？这个视频告诉你！