VBA之For next用法:
要对下面的表格进行评定星级，当然，不止这些数据：
| 姓名 | 项目1 | 项目2 | 项目3 | 项目4 | 项目5 | 项目6 | 考核得分 | 星级评定结果 |
| 王一凡 | 20 | 20 | 15 | 40 | 20 | 10 | 125 | |
| 李自健 | 15 | 30 | 10 | 15 | 20 | 25 | 115 |
Sub XingJi()
Dim xj As String, i As Integer
For i = 2 To 3 Step 1
Select Case Cells(2, "H")
Case Is < 85
xj = "不评定"
Case Is < 100
xj = "一星级"
Case Is < 115
xj = "二星级"
Case Is < 130
xj = "三星级"
Case Is < 150
xj = "四星级"
Case Else
xj = "五星级"
End Select
Cells(i, "I") = xj
Next i
End Sub
执行后，结果如下：
| 姓名 | 项目1 | 项目2 | 项目3 | 项目4 | 项目5 | 项目6 | 考核得分 | 星级评定结果 |
| 王一凡 | 20 | 20 | 15 | 40 | 20 | 10 | 125 | 三星级 |
| 李自健 | 15 | 30 | 10 | 15 | 20 | 25 | 115 | 三星级 |
这样，可以批量处理，节省时间，提高效率！
已有 0/17052 人参与