神马作文网excel统计函数问题?
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/11/11 23:17:32
excel统计函数问题?
举例说：如果A列中,我要统计两个数值之间空格的个数,空格为1个的有多少个数,空格为2个的有多少个数,空格为3个的有多少个数,依此类推,最后是空格在20个以上的有多少个数,请问用什么函数,其表达式是怎样的,
数值在同一列的两个单元格内,有数值的数均为数值1,其余无数的为空格,数值1和1之间的空格有的有1个,有的有2个等等,我要统计这些两个数值之间空格数为1的有多少,空格数为2的有多少,最后是空格在20个以上的有多少个数.
举例说：如果A列中,我要统计两个数值之间空格的个数,空格为1个的有多少个数,空格为2个的有多少个数,空格为3个的有多少个数,依此类推,最后是空格在20个以上的有多少个数,请问用什么函数,其表达式是怎样的,
数值在同一列的两个单元格内,有数值的数均为数值1,其余无数的为空格,数值1和1之间的空格有的有1个,有的有2个等等,我要统计这些两个数值之间空格数为1的有多少,空格数为2的有多少,最后是空格在20个以上的有多少个数.
用楼上的,有点麻烦,因为数据比较多,下拉公式比较累,用VBA做个宏吧.运行后结果输出到B1到C21.
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 Su
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 Su