1、如下图所示，根据右侧所列标准，判断A列所示分数所属等级，并将结果放置在B列。以下我们提供三种判断等级的方法代码，分别是：循环语句Do...Loop、Do while Loop 、Do until Loop三种方式的代码。
2、首先，我们要看下自己电脑是否有【开发工具】选项卡，没有的话，需要点击【文件】/【选项】，在弹出的【excel选项】框内点击【自定义功能区】，将【开发工具】前面的勾勾选上就可以了。
3、一、用Do...Loop循环语句：点击【开发工具】/【visual basic】，再代码窗口处录入即枢潋雳vba代码（如果代码窗口没能显示出来，请点击【视图】/【代码窗口】，从而调出【代码窗口】）：Sub 循环1()Dim a%a = 1Doa = a + 1If a > 20 ThenExit DoElseIf Cells(a, 1) >= 90 Then Cells(a, 2) = "优秀"ElseIf Cells(a, 1) >= 80 Then Cells(a, 2) = "良好"ElseIf Cells(a, 1) >= 70 Then Cells(a, 2) = "中等"ElseCells(a, 2) = "较差"End IfLoopEnd Sub
4、在excel表格中，点击【插入】/【形状】，插入一个自己喜欢的形状，比如我们插入一个矩形。右键单击【指定宏】，将我们上步中录入的宏名为【Sub 循环1】的宏指定给这个矩形，点击【确定】。点击矩形，可以看到，A列中的分数等级已经准确无误的判断出来了。
5、二、用Do while Loop循环语句：点击【开发工具】/【visual basi罕铞泱殳c】，再代码窗鄹绦谟嚣口处录入vba代码（如果代码窗口没能显示出来，请点击【视图】/【代码窗口】，从而调出【代码窗口】）：Sub 循环2()Dim a%a = 1Do While Cells(a, 1) <> ""a = a + 1If Cells(a, 1) >= 90 ThenCells(a, 2) = "优秀"ElseIf Cells(a, 1) >= 80 Then Cells(a, 2) = "良好"ElseIf Cells(a, 1) >= 70 Then Cells(a, 2) = "中等"ElseCells(a, 2) = "较差"End IfLoopEnd Sub
6、在excel表格中，点击【插入】/【形状】，插入一个自己喜欢的形状，比如我们插入一个矩形。右键单击【指定宏】，将我们上步中录入的宏名为【Sub 循环2】的宏指定给这个矩形，点击【确定】。点击矩形，可以看到，A列中的分数等级已经准确无误的判断出来了。
7、三、用Do unt坡纠课柩il Loop循环语句：点击【开发工具】/【visual basic】，再代码窗口处录入vba沪枭诽纾代码（如果代码窗口没能显示出来，请点击【视图】/【代码窗口】，从而调出【代码窗口】）：Sub 循环3()Dim a%a = 1Do Until Cells(a, 1) = ""a = a + 1If Cells(a, 1) >= 90 ThenCells(a, 2) = "优秀"ElseIf Cells(a, 1) >= 80 Then Cells(a, 2) = "良好"ElseIf Cells(a, 1) >= 70 Then Cells(a, 2) = "中等"ElseCells(a, 2) = "较差"End IfLoopEnd Sub
8、在excel表格中，点击【插入】/【形状】，插入一个自己喜欢的形状，比如我们插入一个矩形。右键单击【指定宏】，将我们上步中录入的宏名为【Sub 循环3】的宏指定给这个矩形，点击【确定】。点击矩形，可以看到，A列中的分数等级已经准确无误的判断出来了。
