vba序号增加

Sub 序号增加()

i = ActiveSheet.Range("b1").End(xlDown).Row

ActiveSheet.Range("a2:a" & i).ClearContents

a = 0

For x = 2 To i

    If ActiveSheet.Range("c" & x) = "不续费" Then

        Cells(x, 1) = 0

        Rows(x).Interior.ThemeColor = xlThemeColorAccent2

    Else

        a = a + 1

        Cells(x, 1) = a

    End If

Next

End Sub