VBA标记单元格基于关键字

Question

我已根据单元格文本定义了一个填充颜色的范围。在第一个示例中，它搜索单词“Auto”并将单元格标记为红色。我遇到的问题是扩展“if”命令，例如搜索条件进入E列（但是与“Auto”状态保持在同一行），查看单词“Mortgage”并将其标记为红色。然后它进一步向上移动列并标记4yr，6yr，7yr以下的红色值。下一步与“首选”一词相同。为简单起见，我附上了一张图片。它似乎有点棘手，一个提示将不胜感激。

 Sub Schaltfläche2_Klicken()
 Dim cell As Range

 For Each cell In ws.Range("A1:A100")
     If cell.Value = "Auto" Then
     cell.Interior.Color = XlRgbColor.rgbRed

     ElseIf cell.Value = "Mutti" Then
     cell.Interior.Color = XlRgbColor.rgbRed
    End If
Next
End Sub

Answer 1

以下内容如何：

Sub Schaltfläche2_Klicken()
 Dim cell As Range

 For Each cell In ws.Range("A1:A100")
    If cell.Value = "Auto" Then
        Range("A" & cell.Row, "E" & cell.Row, "G" & cell.Row, "I" & cell.Row, "K" & cell.Row).Interior.Color = vbRed
    ElseIf cell.Value = "Mutti" Then
        Range("A" & cell.Row, "E" & cell.Row, "G" & cell.Row, "I" & cell.Row, "K" & cell.Row).Interior.Color = vbRed
    End If
Next
End Sub