请问EXCEL公式,如何把统计一列数字中,单双交替连续的次数。

请问EXCEL公式,如何把统计一列数字中,单双交替连续的次数。,第1张

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改成相应的数据


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/yw/12614066.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-26
下一篇 2023-05-26

发表评论

登录后才能评论

评论列表(0条)

保存