VBA的两个range的Value相乘

Option Explicit

Sub check()
Dim Rng As Range, a As Integer, b As Integer
For Each Rng In Range("F2:F300")
If Rng.Value = Rng.Offset(0, -3).Value * Rng.Offset(0, -1) Then
Rng.Interior.Color = RGB(255, 0, 0)
Else: Rng.Interior.Color = Rng.Offset(0, -1).Interior.Color
End If
Next Rng

End Sub

Else: Rng.Interior.Color = Rng.Offset(0, -1).Interior.Color 报错的话就是这句
按下面写法试试
Option Explicit

Sub check()
Dim Rng As Range, a As Integer, b As Integer
For Each Rng In Range("F2:F300")
If Rng.Value = Rng.Offset(0, -3).Value * Rng.Offset(0, -1) Then
Rng.Interior.Color = RGB(255, 0, 0)
Else
Rng.Interior.Color = Rng.Offset(0, -1).Interior.Color
End If
Next Rng

End Sub

改成下面这个就可以了。 sheet1.range("b3:g" & i, ",k3:m" & i).select k3:m前面弄个逗号

检查C列和E列的数据