您可以使用Select Case结构来代替Excel VBA中的多个If Then语句。
情况：
在您的工作表上放置一个命令按钮，并添加以下代码行：
1.首先，声明两个变量。一个名为Integer的Integer类型的变量和一个名为result的String类型的变量。
昏暗的分数作为 整数，结果作为 字符串
2.我们使用单元格A1的值初始化变量分数。
分数=范围（“ A1”）。值
3.添加选择案例结构。
选择 案例得分
情况 为 > = 80
的结果=“非常好”的
案例 是 > = 70
的结果=“好”的
案例 是 > = 60
的结果=“足够的”
案例 否则
结果=“不足”
结束 选择
情况 为 > = 80
的结果=“非常好”的
案例 是 > = 70
的结果=“好”的
案例 是 > = 60
的结果=“足够的”
案例 否则
结果=“不足”
结束 选择
说明：Excel VBA使用变量score的值来测试每个后续的Case语句，以查看是否应执行Case语句下的代码。
4.将变量结果的值写入单元格B1。
Range（“ B1”）。Value =结果
5.测试程序。
单击工作表上的命令按钮时的结果：
注意：Excel VBA将对所有大于或等于70且小于80的值执行第二个Case语句下的代码。