从上面的例予可以看出，如果条件复杂，分支太多，使用If语句就会显得累赘，而且程序也将变得不易阅读。这时可使用Select Case语句来写出结构清晰的程序。 

　　Select case语句可根据表达式的求值结果，选择执行几个分支中的一个分支。其语法如下：
 
　　Select Case<检验表达式> 
　　[(；ase<比较列表1>] 
　　 [<语句l>]] 
　　[case Else 
　　[<语句n>]] 
　　End Select 

　　(1)检验表达式必要参数，可为任何数值表达式或字符串表达式。 

　　(2)比较列表1  若有case出现，则为必要参数。它是多个“比较元素”的列表，其中可包含“表达式”、“表达式To表达式”、“Is<比较操作符>表达式’’几种形式。 

　　如果“比较元素”中含有“To”关键字，则前一个表达式必须小于后一个表达式(对于数值表达式，指的是数值大小；对于字符串表达式，则指排序)，且<检验表达式>必须介于两个表达式之间。如果<比较元素>含有“Is”关键字，则“比较操作符’’表达式的值必须为真。 

　　(3)语句1～n可包含一条或多条语句。 
　　如果有一个以上的Case子句与“检验表达式”匹配，则VBA只执行第一个匹配的Case后面的“语句”。如果前面的case子句与<检验表达式>都不匹配，则执行Case Else子句中的语句n。