在Excel中重复数字序列

在Excel中，我们有时需要找出重复出现的数字序列。这可能是因为我们重复输入了某个数字，或者某个公式返回了相同的值。无论原因如何，找到这些重复的数字序列通常是一项重要任务。

下面是一个演示如何在Excel中查找重复数字序列的示例程序：

Sub FindRepeatSequences()
    Dim rng As Range
    Dim arr() As Variant
    Dim i As Long, j As Long, k As Long
    Dim lastVal As Variant
    
    Set rng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) '将要查找的数据范围
    
    If rng.Cells.Count < 2 Then Exit Sub '数据范围中不止一个单元格
    
    ReDim arr(1 To rng.Cells.Count, 1 To 2) '为存储数据创建一个二维数组
    
    For i = 1 To rng.Cells.Count '将数据复制到数组中
        arr(i, 1) = rng(i).Value2
    Next i
    
    lastVal = arr(1, 1) '记录上一个值
    
    For i = 2 To UBound(arr, 1) '逐个比较数字，查找重复序列
        If arr(i, 1) = lastVal Then '执行比较
            If k = 0 Then j = i - 1 '第一次找到重复序列
            k = k + 1 '计数器累加
        Else '当前数字和上一个不同
            If k > 0 Then Range("B" & j & ":B" & i - 1).Value2 = k '输出序列长度
            k = 0 '计数器归零
        End If
        arr(i, 2) = k '将计数器值存储在第二列
        lastVal = arr(i, 1) '更新上一个值
    Next i
    
    If k > 0 Then Range("B" & j & ":B" & i - 1).Value2 = k '检查最后一个重复序列
End Sub

该程序中的算法非常简单。它遍历指定的单元格范围，将数字存储在二维数组中，并比较相邻的数字。如果两个数字相同，则程序将计数器累加。如果两个数字不同，则程序将输出计数器的当前值（即重复数字序列的长度），并将计数器重置为零。最后，程序检查最后一个数字是否在重复序列中，如果是，则输出序列长度。

有了这个程序，我们就可以轻松地找到Excel中的重复数字序列。