VBA循环语句Do...Loop判断等级

1、如下图所示，根据右侧所列标准，判断A列所示分数所属等级，并将结果放置在B列。以下我们提供三种判断等级的方法代码，分别是：循环语句Do...Loop、Do while Loop 、Do until Loop三种方式的代码。

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列中的分数等级已经准确无误的判断出来了。