同一列序号若断号标颜色来识别

seelookme

大家好，请教一下问题，本人想要在同一列的序号中找出如果断号则标一下颜色来识别，因为实际工作中涉及的序号很多，故想寻求一咱快速识别的方法实现。谢谢！

山菊花

供参考。

gwjkkkkk

Option Explicit
Sub test1() '
    Dim ar, i&, p&, n&
    n = 4: p = 2
    With [A1].CurrentRegion
        .Interior.ColorIndex = xlNone
        ar = .Resize(.Rows.Count + 1)
        For i = 2 To UBound(ar) - 1
            If ar(i + 1, 1) - 1 <> ar(p, 1) Then
                Range(.Cells(p, 1), .Cells(i, 1)).Resize(, UBound(ar, 2)).Interior.ColorIndex = n
                n = n + 1
                p = i + 1
            End If
        Next i
    End With
End Sub

gwjkkkkk

请参考。。。