VBA - 从3个特定列获取一个或多个红色突出显示的单元格的完整行

Question

我正在做一个vba，它将获得具有红色内部颜色的完整行的单元格。该表由位于B-J列的9列组成，但在行方面是动态的。

我需要扫描B列中的第一行是否为红色然后进入下一行，否则请检查列h否则列j。但问题是，第一列的某些值是空白的。什么是正确的编码？

我有这个编码，但它不能100％工作。但是当在第J列中发现红色细胞时，它无法获得完整的行。谢谢。

Answer 1

Sub test()
    Dim searchRange As Range
    Dim checkCell As Object

    Set searchRange = ThisWorkbook.Worksheets("Tabelle1").Range("B1:J1")

    For Each checkCell In searchRange
        If checkCell.Interior.Color = vbRed Then
            MsgBox "i am red"
        End If
    Next
End Sub