Vba Excel如果语句缩短？

我已经根据不同单元格中的值将VBA代码写入彩色单元格。能否缩短以下时间？我不熟悉VBA中的脚本编写，希望如果可以缩短，那么我可以将其应用到更大的文件中

 Sub RoutingCheck()
   Dim I As Long, r1 As Range, r2 As Range

   For I = 2 To 456
      Set r1 = Range("A" & I)
      Set r2 = Range("B" & I)

    If r1.Value = 94 And r2.Value = " " Then r1.Interior.Color = vbRed
    If r1.Value = 94 And r2.Value = "" Then r1.Interior.Color = vbRed
    If r1.Value = 94 And r2.Value = -99 Then r1.Interior.Color = vbRed
    If r1.Value = 94 And r2.Value = -66 Then r1.Interior.Color = vbRed
    If r1.Value = 94 And r2.Value = -77 Then r1.Interior.Color = vbRed
    If r1.Value = 94 And r2.Value = " " Then r2.Interior.Color = vbRed
    If r1.Value = 94 And r2.Value = "" Then r2.Interior.Color = vbRed
    If r1.Value = 94 And r2.Value = -99 Then r2.Interior.Color = vbRed
    If r1.Value = 94 And r2.Value = -66 Then r2.Interior.Color = vbRed
    If r1.Value = 94 And r2.Value = -77 Then r2.Interior.Color = vbRed
    If r1.Value = 94 And r2.Value <> "" And r2.Value <> -99 And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> " " Then r1.Interior.Color = vbGreen
    If r1.Value = 94 And r2.Value <> "" And r2.Value <> -99 And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> " " Then r2.Interior.Color = vbGreen

    If r1.Value = 1 And r2.Value = "" Then r1.Interior.Color = vbRed
    If r1.Value = 1 And r2.Value = -66 Then r1.Interior.Color = vbRed
    If r1.Value = 1 And r2.Value = 0 Then r1.Interior.Color = vbRed
    If r1.Value = 1 And r2.Value = -77 Then r1.Interior.Color = vbRed
    If r1.Value = 1 And r2.Value = "" Then r2.Interior.Color = vbRed
    If r1.Value = 1 And r2.Value = -66 Then r2.Interior.Color = vbRed
    If r1.Value = 1 And r2.Value = 0 Then r2.Interior.Color = vbRed
    If r1.Value = 1 And r2.Value = -77 Then r2.Interior.Color = vbRed
    If r1.Value = 1 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r1.Interior.Color = vbRed
    If r1.Value = 1 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r2.Interior.Color = vbRed
    If r1.Value = 1 And r2.Value = -99 Then r1.Interior.Color = vbGreen
    If r1.Value = 1 And r2.Value = -99 Then r2.Interior.Color = vbGreen

    If r1.Value = 2 And r2.Value = "" Then r1.Interior.Color = vbRed
    If r1.Value = 2 And r2.Value = -66 Then r1.Interior.Color = vbRed
    If r1.Value = 2 And r2.Value = 0 Then r1.Interior.Color = vbRed
    If r1.Value = 2 And r2.Value = -77 Then r1.Interior.Color = vbRed
    If r1.Value = 2 And r2.Value = "" Then r2.Interior.Color = vbRed
    If r1.Value = 2 And r2.Value = -66 Then r2.Interior.Color = vbRed
    If r1.Value = 2 And r2.Value = 0 Then r2.Interior.Color = vbRed
    If r1.Value = 2 And r2.Value = -77 Then r2.Interior.Color = vbRed
    If r1.Value = 2 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r1.Interior.Color = vbRed
    If r1.Value = 2 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r2.Interior.Color = vbRed
    If r1.Value = 2 And r2.Value = -99 Then r1.Interior.Color = vbGreen
    If r1.Value = 2 And r2.Value = -99 Then r2.Interior.Color = vbGreen

    If r1.Value = 3 And r2.Value = "" Then r1.Interior.Color = vbRed
    If r1.Value = 3 And r2.Value = -66 Then r1.Interior.Color = vbRed
    If r1.Value = 3 And r2.Value = 0 Then r1.Interior.Color = vbRed
    If r1.Value = 3 And r2.Value = -77 Then r1.Interior.Color = vbRed
    If r1.Value = 3 And r2.Value = "" Then r2.Interior.Color = vbRed
    If r1.Value = 3 And r2.Value = -66 Then r2.Interior.Color = vbRed
    If r1.Value = 3 And r2.Value = 0 Then r2.Interior.Color = vbRed
    If r1.Value = 3 And r2.Value = -77 Then r2.Interior.Color = vbRed
    If r1.Value = 3 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r1.Interior.Color = vbRed
    If r1.Value = 3 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r2.Interior.Color = vbRed
    If r1.Value = 3 And r2.Value = -99 Then r1.Interior.Color = vbGreen
    If r1.Value = 3 And r2.Value = -99 Then r2.Interior.Color = vbGreen

    If r1.Value = 4 And r2.Value = "" Then r1.Interior.Color = vbRed
    If r1.Value = 4 And r2.Value = -66 Then r1.Interior.Color = vbRed
    If r1.Value = 4 And r2.Value = 0 Then r1.Interior.Color = vbRed
    If r1.Value = 4 And r2.Value = -77 Then r1.Interior.Color = vbRed
    If r1.Value = 4 And r2.Value = "" Then r2.Interior.Color = vbRed
    If r1.Value = 4 And r2.Value = -66 Then r2.Interior.Color = vbRed
    If r1.Value = 4 And r2.Value = 0 Then r2.Interior.Color = vbRed
    If r1.Value = 4 And r2.Value = -77 Then r2.Interior.Color = vbRed
    If r1.Value = 4 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r1.Interior.Color = vbRed
    If r1.Value = 4 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r2.Interior.Color = vbRed
    If r1.Value = 4 And r2.Value = -99 Then r1.Interior.Color = vbGreen
    If r1.Value = 4 And r2.Value = -99 Then r2.Interior.Color = vbGreen

    If r1.Value = 5 And r2.Value = "" Then r1.Interior.Color = vbRed
    If r1.Value = 5 And r2.Value = -66 Then r1.Interior.Color = vbRed
    If r1.Value = 5 And r2.Value = 0 Then r1.Interior.Color = vbRed
    If r1.Value = 5 And r2.Value = -77 Then r1.Interior.Color = vbRed
    If r1.Value = 5 And r2.Value = "" Then r2.Interior.Color = vbRed
    If r1.Value = 5 And r2.Value = -66 Then r2.Interior.Color = vbRed
    If r1.Value = 5 And r2.Value = 0 Then r2.Interior.Color = vbRed
    If r1.Value = 5 And r2.Value = -77 Then r2.Interior.Color = vbRed
    If r1.Value = 5 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r1.Interior.Color = vbRed
    If r1.Value = 5 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r2.Interior.Color = vbRed
    If r1.Value = 5 And r2.Value = -99 Then r1.Interior.Color = vbGreen
    If r1.Value = 5 And r2.Value = -99 Then r2.Interior.Color = vbGreen

    If r1.Value = 6 And r2.Value = "" Then r1.Interior.Color = vbRed
    If r1.Value = 6 And r2.Value = -66 Then r1.Interior.Color = vbRed
    If r1.Value = 6 And r2.Value = 0 Then r1.Interior.Color = vbRed
    If r1.Value = 6 And r2.Value = -77 Then r1.Interior.Color = vbRed
    If r1.Value = 6 And r2.Value = "" Then r2.Interior.Color = vbRed
    If r1.Value = 6 And r2.Value = -66 Then r2.Interior.Color = vbRed
    If r1.Value = 6 And r2.Value = 0 Then r2.Interior.Color = vbRed
    If r1.Value = 6 And r2.Value = -77 Then r2.Interior.Color = vbRed
    If r1.Value = 6 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r1.Interior.Color = vbRed
    If r1.Value = 6 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r2.Interior.Color = vbRed
    If r1.Value = 6 And r2.Value = -99 Then r1.Interior.Color = vbGreen
    If r1.Value = 6 And r2.Value = -99 Then r2.Interior.Color = vbGreen

    If r1.Value = 7 And r2.Value = "" Then r1.Interior.Color = vbRed
    If r1.Value = 7 And r2.Value = -66 Then r1.Interior.Color = vbRed
    If r1.Value = 7 And r2.Value = 0 Then r1.Interior.Color = vbRed
    If r1.Value = 7 And r2.Value = -77 Then r1.Interior.Color = vbRed
    If r1.Value = 7 And r2.Value = "" Then r2.Interior.Color = vbRed
    If r1.Value = 7 And r2.Value = -66 Then r2.Interior.Color = vbRed
    If r1.Value = 7 And r2.Value = 0 Then r2.Interior.Color = vbRed
    If r1.Value = 7 And r2.Value = -77 Then r2.Interior.Color = vbRed
    If r1.Value = 7 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r1.Interior.Color = vbRed
    If r1.Value = 7 And r2.Value <> "" And r2.Value <> -66 And r2.Value <> -77 And r2.Value <> 0 And r2.Value <> -99 Then r2.Interior.Color = vbRed
    If r1.Value = 7 And r2.Value = -99 Then r1.Interior.Color = vbGreen
    If r1.Value = 7 And r2.Value = -99 Then r2.Interior.Color = vbGreen

       Next I
       'Error

        End Sub

子路由检查（）
尺寸I等于长度，r1等于范围，r2等于范围
对于I=2到456
设置r1=范围（“A”和“I”）
设置r2=范围（“B”和“I”）
如果r1.Value=94和r2.Value=“”，则r1.Interior.Color=vbRed
如果r1.Value=94和r2.Value=“”，则r1.Interior.Color=vbRed
如果r1.Value=94和r2.Value=-99，则r1.Interior.Color=vbRed
如果r1.Value=94和r2.Value=-66，则r1.Interior.Color=vbRed
如果r1.Value=94和r2.Value=-77，则r1.Interior.Color=vbRed
如果r1.Value=94和r2.Value=“”，则r2.Interior.Color=vbRed
如果r1.Value=94和r2.Value=“”，则r2.Interior.Color=vbRed
如果r1.Value=94和r2.Value=-99，则r2.Interior.Color=vbRed
如果r1.Value=94和r2.Value=-66，则r2.Interior.Color=vbRed
如果r1.Value=94和r2.Value=-77，则r2.Interior.Color=vbRed
如果r1.Value=94，r2.Value为“”，r2.Value为-99，r2.Value为-66，r2.Value为-77，r2.Value为“”，则r1.Interior.Color=vbGreen
如果r1.Value=94，r2.Value为“”，r2.Value为-99，r2.Value为-66，r2.Value为-77，r2.Value为“”，则r2.Interior.Color=vbGreen
如果r1.Value=1和r2.Value=“”，则r1.Interior.Color=vbRed
如果r1.Value=1和r2.Value=-66，则r1.Interior.Color=vbRed
如果r1.Value=1和r2.Value=0，则r1.Interior.Color=vbRed
如果r1.Value=1和r2.Value=-77，则r1.Interior.Color=vbRed
如果r1.Value=1和r2.Value=“”，则r2.Interior.Color=vbRed
如果r1.Value=1和r2.Value=-66，则r2.Interior.Color=vbRed
如果r1.Value=1和r2.Value=0，则r2.Interior.Color=vbRed
如果r1.Value=1和r2.Value=-77，则r2.Interior.Color=vbRed
如果r1.Value=1和r2.Value“”、r2.Value-66和r2.Value-77、r2.Value 0和r2.Value-99，则r1.Interior.Color=vbRed
如果r1.Value=1和r2.Value“”、r2.Value-66和r2.Value-77、r2.Value 0和r2.Value-99，则r2.Interior.Color=vbRed
如果r1.Value=1和r2.Value=-99，则r1.Interior.Color=vbGreen
如果r1.Value=1和r2.Value=-99，则r2.Interior.Color=vbGreen
如果r1.Value=2和r2.Value=“”，则r1.Interior.Color=vbRed
如果r1.Value=2和r2.Value=-66，则r1.Interior.Color=vbRed
如果r1.Value=2和r2.Value=0，则r1.Interior.Color=vbRed
如果r1.Value=2和r2.Value=-77，则r1.Interior.Color=vbRed
如果r1.Value=2和r2.Value=“”，则r2.Interior.Color=vbRed
如果r1.Value=2和r2.Value=-66，则r2.Interior.Color=vbRed
如果r1.Value=2和r2.Value=0，则r2.Interior.Color=vbRed
如果r1.Value=2和r2.Value=-77，则r2.Interior.Color=vbRed
如果r1.Value=2和r2.Value“”、r2.Value-66和r2.Value-77、r2.Value 0和r2.Value-99，则r1.Interior.Color=vbRed
如果r1.Value=2和r2.Value“”、r2.Value-66和r2.Value-77、r2.Value 0和r2.Value-99，则r2.Interior.Color=vbRed
如果r1.Value=2和r2.Value=-99，则r1.Interior.Color=vbGreen
如果r1.Value=2和r2.Value=-99，则r2.Interior.Color=vbGreen
如果r1.Value=3和r2.Value=“”，则r1.Interior.Color=vbRed
如果r1.Value=3和r2.Value=-66，则r1.Interior.Color=vbRed
如果r1.Value=3和r2.Value=0，则r1.Interior.Color=vbRed
如果r1.Value=3和r2.Value=-77，则r1.Interior.Color=vbRed
如果r1.Value=3和r2.Value=”“，则r2.Interior.Color=vbRed
如果r1.Value=3和r2.Value=-66，则r2.Interior.Color=vbRed
如果r1.Value=3和r2.Value=0，则r2.Interior.Color=vbRed
如果r1.Value=3和r2.Value=-77，则r2.Interior.Color=vbRed
如果r1.Value=3和r2.Value“”、r2.Value-66和r2.Value-77、r2.Value 0和r2.Value-99，则r1.Interior.Color=vbRed
如果r1.Value=3，r2.Value“”，r2.Value-66，r2.Value-77，r2.Value-0，r2.Value-99，则r2.Interior.Color=vbRed
如果r1.Value=3和r2.Value=-99，则r1.Interior.Color=vbGreen
如果r1.Value=3和r2.Value=-99，则r2.Interior.Color=vbGreen
如果r1.Value=4和r2.Value=“”，则r1.Interior.Color=vbRed
如果r1.Value=4，r2.Value=-66，则r1.Interior.Color=vbRed
如果r1.Value=4和r2.Value=0，则r1.Interior.Color=vbRed
如果r1.Value=4和r2.Value=-77，则r1.Interior.Color=vbRed
如果r1.Value=4和r2.Value=“”，则r2.Interior.Color=vbRed
如果r1.Value=4，r2.Value=-66，则r2.Interior.Color=vbRed
如果r1.Value=4，r2.Value=0，则r2.Interior.Color=vbRed
如果r1.Value=4，r2.Value=-77，则r2.Interior.Color=vbRed
如果r1.Value=4和r2.Value“”、r2.Value-66和r2.Value-77、r2.Value 0和r2.Value-99，则r1.Interior.Color=vbRed
如果r1.Value=4，r2.Value“”，r2.Value-66，r2.Value-77，r2.Value-0，r2.Value-99，则r2.Interior.Color=vbRed
如果r1.Value=4和r2.Value=-99，则r1.Interior.Color=vbGreen
如果r1.Value=4，r2.Value=-99，则r2.Interior.Color=vbGreen
如果r1.Value=5和r2.Value=“”，则r1.Interior.Color=vbRed
如果r1.Value=5，r2.Value=-66，则r1.Interior.Color=vbRed
如果r1.Value=5和r2.Value=0，则r1.Interior.Color=vbRed
如果r1.Value=5，r2.Value=-77，则r1.Interior.Color=vbRed
如果r1.Value=5和r2.Value=“”，则r2.Interior.Color=vbRed
如果r1.Value=5，r2.Value=-66，则r2.Interior.Color=vbRed
如果r1.Value=5，r2.Value=0，则r2.Interior.Color=vbRed
如果r1.Value=5，r2.Value=-77，则r2.Interior.Color=vbRed
如果r1.Value=5，r2.Value为“”，r2.Value为-66，r2.Value为-77，r2.Value为0，r2.Value为-99，则r1.Inte
If r1.Value = 94 Then
   Select case r2.Value
      case " ", "", -99, -66, -77
         r1.Interior.Color = vbRed
         r2.Interior.Color = vbRed
      Case else
         r1.Interior.Color = vbGreen
         r2.Interior.Color = vbGreen
    End Select
ElseIf r1.value = 1 then
   ' repeat the select case or use a function to return the correct colour.
' repeat
End If