作业帮请问EXCEL公式,如何把统计一列数字中,单双交替连续的次数.
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/15 16:27:56
请问EXCEL公式,如何把统计一列数字中,单双交替连续的次数.
如上表,从A4到A10单双交替出现的次数为7次,故输出结果在B9为7.
现在我要的就是在B9的公式.以便我一次性用此公式可以下拉类推下来.
如上表,从A4到A10单双交替出现的次数为7次,故输出结果在B9为7.
现在我要的就是在B9的公式.以便我一次性用此公式可以下拉类推下来.
Sub test()
Dim sp
sp = 20 '20是A列的数字的个数,需要根据情况输入
For i = 1 To sp
p = 1
For j = 0 To sp - 1
If (Cells(i + j,1) Mod 2 = 0 And Cells(i + j + 1,1) Mod 2 = 1) Or (Cells(i + j,1) Mod 2 = 1 And Cells(i + j + 1,1) Mod 2 = 0) Then
p = p + 1
Else
Exit For
End If
Next j
If p = 1 Then
Cells(i + j,2) = ""
Else
Cells(i + j,2) = p
i = i + j
End If
Next i
End Sub
用法：按住Alt+F11,将上述代码复制进去,点上面那个像播放器一样的三角形.就可以了.
如果A列数字很多,就将上面备注的20改成相应的数据
再问： 这直接把这些公式复制到单元格里去吗？
再答： 不是单元格。你按我最后两行给你说的操作方法去做嘛。 对了，你的原始数据是在A列哦
Dim sp
sp = 20 '20是A列的数字的个数,需要根据情况输入
For i = 1 To sp
p = 1
For j = 0 To sp - 1
If (Cells(i + j,1) Mod 2 = 0 And Cells(i + j + 1,1) Mod 2 = 1) Or (Cells(i + j,1) Mod 2 = 1 And Cells(i + j + 1,1) Mod 2 = 0) Then
p = p + 1
Else
Exit For
End If
Next j
If p = 1 Then
Cells(i + j,2) = ""
Else
Cells(i + j,2) = p
i = i + j
End If
Next i
End Sub
用法：按住Alt+F11,将上述代码复制进去,点上面那个像播放器一样的三角形.就可以了.
如果A列数字很多,就将上面备注的20改成相应的数据
再问： 这直接把这些公式复制到单元格里去吗？
再答： 不是单元格。你按我最后两行给你说的操作方法去做嘛。 对了，你的原始数据是在A列哦
请问EXCEL公式,如何把统计一列数字中,单双交替连续的次数.
如何通过excel统计：一列中,>0的连续出现次数最大的次数是几次.
EXCEL 统计连续数字出现的次数
请问一下在excel如何统计一列中出现相同文字的次数? 有晓得的人就说下哈,
请问下有谁知道在excel如何统计一列中出现相同文字的次数? 有晓得的人就说下哈,
请问下谁知道excel中如何统计出一行中数字重复出现的次数? 有会的人说下嘛,
请问一下谁知道excel中如何统计出一行中数字重复出现的次数? 有会的人说下嘛,
请问下EXCEL中,怎么统计一列中某个词出现的次数. 有点急,
EXCEL表格中一列数据统计出这一列数据中某个数字出现的总次数,怎么实现?
Excel中如何统计出现"单元格连续的相同个数偶数或奇数"的次数?
请问高手们,EXCEL中有没有公式能统计出很多不连续的单元格中重复数据出现的次数?
请问Excel统计某区域内某些数字出现的次数