[已解决]请ＶＢＡ大神帮一下忙，我是初学菜鸟级别。

vixiaodym

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= "1529" Then（错误提示没有for）
End Sub

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-28 10:40

If rg = "2431" Then
这句把if改成elseif

跳转到最佳答案楼层

大灰狼1976

If rg = "2431" Then
这句把if改成elseif

Excel学徒123

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 = "七级"
......
红色部分的if改成elseif

vixiaodym

大灰狼1976 发表于 2017-4-28 10:40
If rg = "2431" Then
这句把if改成elseif

谢谢你，可以运用了。

vixiaodym

Excel学徒123 发表于 2017-4-28 11:30
Sub s1()
Dim rg As Range
For Each rg In Range("d2:d176")

谢谢你，可以运用了。