­ã´£³¡ªL

Sub Macro33()
Dim xR As Range, xH As Range, N%
[C:C].Interior.ColorIndex = 0
[E:E].ClearContents
For Each xR In Range([C1], [C65536].End(xlUp))
    If Right(xR, 1) = "0" Then Set xH = xR:  N = 0
    If xR - xH = N Then N = N + 1 Else N = 0
    If N = 10 Then
       With Range(xR, xH): .Interior.ColorIndex = 34: .Offset(, 2) = "abc": End With
    End If
Next
End Sub