1、 新建一张表格，在表格中输入员工的姓名和销售额，我们将在C列显示出员工的级别，如图所示。
4、 现在来输入代码：Sub 等级评定() Dim i As Integer '创建一个苻抽苍黪整数变量i For i = 3 To 10 'i从3到10 t = Sheets(1).Cells(i, 2).Value '从第2列中选取员工成绩 If t >= 8000 Then j = "金牌销售" '如果销售额>=8000，等级选择为“金牌销售” ElseIf t >= 6000 Then j = "银牌销售" '如果销售额>=6000，等级选择为“银牌销售” ElseIf t >= 4000 Then j = "铜牌销售" '如果销售额>=4000，等级选择为“铜牌销售” ElseIf t >= 2000 Then j = "铁牌销售" '如果销售额>=2000，等级选择为“铁牌销售” Else j = "销售菜鸟" '如果销售额<2000，等级选择为“销售菜鸟” End If Sheets(1).Cells(i, 3) = j NextEnd Sub
