用楼上的,有点麻烦,因为数据比较多,下拉公式比较累,用VBA做个宏吧。运行后结果输出到B1到C21。Sub aaa()For l = 1 To 20
Cells(l, 2) = "空格数为" & l & "的有:"
Cells(l, 3) = 0NextCells(21, 2) = "空格数大于20的有:"Cells(21, 3) = 0i = Range("a65535").End(xlUp).Rowm = 0For l = 1 To i
k = l
If Cells(l, 1)"" Then
m = 1
Else
I