发布网友 发布时间:2022-04-30 13:12
共2个回答
热心网友 时间:2022-06-22 12:50
4个3的,也要算2连,3连热心网友 时间:2022-06-22 12:51
代码已改到4连
Sub 找连()
Dim arr(1 To 65536, 1 To 3)
[k2].Resize([a65536].End(3).Row + 1, 3).ClearContents
For i = 2 To [a65536].End(3).Row
n = 0
For j = 1 To 10
If Cells(i, j) = Cells(i, j + 1) Then
n = n + 1
Else
If j <> 1 Then n = n + 1
If n = 2 Then arr(i - 1, 1) = arr(i - 1, 1) + 1
If n = 3 Then arr(i - 1, 2) = arr(i - 1, 2) + 1
If n > 3 Then arr(i - 1, 3) = arr(i - 1, 3) + 1
n = 0
End If
Next
Next
[k2].Resize([a65536].End(3).Row + 1, 3) = arr
End Sub