vba序號(hào)增加
Sub 序號(hào)增加()
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) = "不續(xù)費(fèi)" Then
? ? ? ? Cells(x, 1) = 0
? ? ? ? Rows(x).Interior.ThemeColor = xlThemeColorAccent2
? ? Else
? ? ? ? a = a + 1
? ? ? ? Cells(x, 1) = a
? ? End If
Next
End Sub
標(biāo)簽：vba
