如何处理空值？请大家提提意见？

iaskmore

如果用for next 循环语句，可以进行制定行或列的条件运算。
如果行或列中有不规律的空值出现，该如何处理呢？
以《别怕》书中的判断《星级评定标准》例子为例
如果想形成下图的效果该在么编写语句啊？

1. Sub casetest()
   
2.     Dim xj As String, i As Integer
   
3.     For i = 6 To 23
   
4.     Select Case Cells(i, "h")
   
5.     Case Is < 85
   
6.     xj = "不评级"
   
7.     Case Is < Range("E2")
   
8.     xj = "一星级"
   
9.     Case Is < Range("C2")
   
10.     xj = "二星级"
    
11.     Case Is < 130
    
12.     xj = "三星级"
    
13.     Case Is < 150
    
14.     xj = "四星级"
    
15.     Case Else
    
16.     xj = "五星级"
    
17.     End Select
    
18.     Cells(i, "i") = xj
    
19.     Next i
    
20. End Sub

复制代码

清风竹-

…………
For i = 6 To 23
   Select Case Cells(i, "h")
     Case Is =“”  '加这句
       xj = “”   '加这句，如果这两句放这里不行，就放到  xj = "不评级"  下面。
   Case Is < 85
   xj = "不评级"
    Case Is < Range("E2")
   xj = "一星级"
…………

   

iaskmore

清风竹- 发表于 2013-2-19 20:48
…………
For i = 6 To 23
   Select Case Cells(i, "h")

非常感谢。茅塞顿开。