以下是引用ictest在2021-9-9 00:20:08的发言：

我曾经使用过如下语句，得到的结果是正确的：
  
    For j = 0 To Rows
      xlst.Range(xlst.Cells(j + 1, row1(j, 0) + 1), xlst.Cells(j + 1, row1(j, 1) + 1)).Interior.Color = vbGreen
    For I = row1(j, 0) To row1(j, 1)
    Select Case Celldata(j, I)
    Case "": xlst.Cells(j + 1, I + 1).Interior.Color = vbWhite
    Case "2": xlst.Cells(j + 1, I + 1).Interior.Color = vbMagenta
    Case "3": xlst.Cells(j + 1, I + 1).Interior.Color = vbYellow
    End Select
  Next
  Next


上面的语句是对于一个格子里具体的某个值进行填色，现在需求改变，想要将一定的范围值内进行填色。
例如，这个格子里的数值是101~200内的某一个数值的话，如159，则填充vbMagenta颜色；
再如，这个格子里的数值是201~300内的某一个数值的话，如211，则填充vbYellow颜色；
以此类推
但我将如下语句
    Case "2": xlst.Cells(j + 1, I + 1).Interior.Color = vbMagenta
    Case "3": xlst.Cells(j + 1, I + 1).Interior.Color = vbYellow
修改成
Case Is >= 100, Is < 200: xlst.Cells(j + 1, I + 1).Interior.Color = RGB(180, 136, 148)
Case Is >= 200, Is < 300: xlst.Cells(j + 1, I + 1).Interior.Color = RGB(200, 12, 132)
得到的填色结果并不正确，没有进行分色，所有的有值的格子都是同一种颜色。请教哪里错误了，应该怎样修改？
请版主大人和路过的各位给与些帮助。