VBAはこのコードを最適化するためにとにかくありますか？

Question

現在、次のコードを使用する必要があるものに取り組んでいます。ちょうどそれを縮めたり、それを組み合わせたりするためにとにかくあるかどうか疑問に思う。どんな助けも素晴らしいだろう。そして数日前に非常に多くの質問を投稿して謝罪します。

Sub RoutingCheck() 


    Dim i As Long, c1 As Range, c2 As Range, c3 As Range, c4 As Range 

    For i = 2 To 456 
     Set c3 = Range("C" & i) 
     Set c4 = Range("D" & i) 

If c3.Value <> 1 Or c3.Value <> 2 Or c3.Value <> 3 Or c3.Value <> 4 Or c3.Value <> 5 Or c3.Value <> 6 Or c3.Value <> 98 Then c3.Interior.color = vbRed 
If c3.Value = 1 Or c3.Value = 2 Or c3.Value = 3 Or c3.Value = 4 Or c3.Value = 5 Or c3.Value = 6 Or c3.Value = 98 Then c3.Interior.color = vbGreen 


End If 
Next i 

End Sub 

Answer 1

Select Caseがすべてに約あるまさに、以下のコード試してください：[？文がダウン短くする場合はエクセル]

Sub RoutingCheck() 

Dim i As Long, c1 As Range, c2 As Range, c3 As Range, c4 As Range 

For i = 2 To 456 
    Set c3 = Range("C" & i) 
    Set c4 = Range("D" & i) 

    Select Case c3.Value 
     Case 1 To 6 
      c3.Interior.Color = vbGreen 
     Case Else 
      c3.Interior.Color = vbRed 
    End Select 

Next i 

End Sub