如果列值大于零，则突出显示行范围

Question

我有一张包含C5到H？中各种数据的工作表。 H长度在不同的工作表上会有所不同，但根据工作表的不同，大小会超过2,000.

所以，我需要一个VBA宏来检查H列中每个单元格的值，如果有一个大于零的值，则将该行从C列突出显示到L列。

Answer 1

怎么样：

Sub ColorMeElmo()
    Dim N As Long, i As Long
    N = Cells(Rows.Count, "H").End(xlUp).Row
    For i = 1 To N
        v = Cells(i, "H").Value
        If v > 0 Then
            Range("C" & i & ":L" & i).Interior.ColorIndex = 27
        End If
    Next i
End Sub