Question

EXCEL统计每行连续相同数字？

数据有几万行，请问怎么统计，，每行2个连续的数字算一个2连，，3个连续或者以上算一个3连，非常感谢。具体请看图片，数据只在A-J列下面还有很多。刚刚修改了一下提问就被说违规了。可以使用VBA，谢谢，

Answer 1

Sub 找连()

Dim arr(1 To 65536, 1 To 2)

For i = 1 To [a65536].End(3).Row

    n = 1

    For j = 1 To 10

        If Cells(i, j) = Cells(i, j + 1) Then

            n = n + 1

        Else

            If n = 2 Then arr(i, 1) = arr(i, 1) + 1

            If n > 2 Then arr(i, 2) = arr(i, 2) + 1

            n = 0

        End If

    Next

Next

[k1].Resize([a65536].End(3).Row, 2) = arr

End Sub

Answer 2

程序代码：

测试数据示例：

程序代码文本（可能浏览器显示特殊符号空白时有变，以上图为准）：

Option Explicit

Sub 宏1()
Dim arr1, arr2, n&, i&, j&, k&
arr1 = Range("a1").CurrentRegion
n = UBound(arr1)
ReDim arr2(1 To n, 1 To 2)
For i = 1 To n
k = 1
For j = 2 To 10
If arr1(i, j) = arr1(i, j - 1) Then
k = k + 1
Else
If k >= 3 Then
arr2(i, 2) = 1
Exit For
ElseIf k = 2 Then
arr2(i, 1) = 1
If arr2(i, 2) = 1 Then Exit For
End If
k = 1
End If
Next j
Next i
Range("k1").Resize(n, 2) = arr2
End Sub