本人菜鸟,请教一下,next 没有 for是什么原因,请大神帮忙改一下,谢谢。
Sub s1()Dim rg As Range
For Each rg In Range("d2:d176")
If rg = "5335" Then
rg = "一级"
ElseIf rg = "4235" Then
rg = "二级"
ElseIf rg = "3828" Then
rg = "三级"
ElseIf rg = "3190" Then
rg = "四级"
ElseIf rg = "2937" Then
rg = "五级"
ElseIf rg = "2662" Then
rg = "六级"
If rg = "2431" Then
rg = "七级"
ElseIf rg = "2145" Then
rg = "八级"
ElseIf rg = "1881" Then
rg = "九级"
ElseIf rg = "1760" Then
rg = "十级"
ElseIf rg = "1661" Then
rg = "十一级"
ElseIf rg = "1639" Then
rg = "十二级"
ElseIf rg = "1529" Then
rg = "十三级"
End If
Next rg
End Sub