vba - 如果 B 列不为空白且行为偶数，则为行着色

Question

我试图在它是偶数的情况下为一行着色，并且该行中的 B 列不是空白的。

如果它是第 1 行，我实际上需要它在 A1 到 L1 区域而不是整行上着色。

定义一个颜色范围当然是可能的，但我想要一个解决方案，它可以检查最后一列是否包含内容，然后为从 B1 到最后一列的所有行着色，内容为当前的 IF 列 B行不为空且当前行为偶数。

我当前的代码正确地为行着色，但对整行着色，因为我使用了 .Entirerow .有没有一种天才的方法可以在最后使用的列之前只着色？

Sub farve()

Dim rw As Range
Dim rng As Range

Set rng = ActiveSheet.UsedRange

For Each rw In rng.Rows
    If rw.row Mod 2 = 0 And Range("B" & rw.row) <> "" Then
        rw.EntireRow.Interior.Color = RGB(255, 0, 0)
    End If
Next rw

End Sub

Answer 1

根据上面的评论

Sub farve()

Dim rw As Range
Dim rng As Range
Dim c As Long

Set rng = ActiveSheet.UsedRange
c = Cells(5, Columns.Count).End(xlToLeft).Column

For Each rw In rng.Rows
    If rw.Row Mod 2 = 0 And Range("B" & rw.Row) <> "" Then
         Range(Cells(rw.Row, 2), Cells(rw.Row, c)).Interior.Color = RGB(255, 0, 0)
    End If
Next rw

End Sub