Как изменить цвет заливки ячейки на основе строк, найденных в двух столбцах?

Question

У меня есть два столбца (B & C), содержащие имена, но я хочу убедиться, что определенные слова помечены для просмотра, изменив цвет заполнения ячейки.

Кажется, я больше не знаком с VBA, но мне нужно поболтать с некоторыми, чтобы получить столь необходимый макрос для работы. Как я уже говорил выше, у меня есть два столбца (B & C), содержащие имена, но я хочу убедиться, что определенные слова помечены для просмотра путем изменения цвета заполнения ячейки. Слова, которые я ищу, это «надежда» и «доверие», и они, вероятно, являются частью некоторых ценностей.

Sub FindTrustHope()

Dim B As Long, C As Long, i As Long
Dim findTrust As String
Dim findHope As String
B = Cells(Rows.Count, "B").End(xlUp).Row
C = Cells(Rows.Count, "C").End(xlUp).Row
findTrust = "trust"
findHope = "hope"
    For i = B To 1 Step -1
    If Cells(i, "B") = findTrust Or Cells(i, "B") = findHope Then
        Cells(i, "B").Interior.Color = vbRed
    End If
    If Cells(i, "C") = findTrust Or Cells(i, "C") = findHope Then
        Cells(i, "C").Interior.Color = vbRed
    End If

Next i
End Sub

Answer 1

Код ниже должен помочь вам.

Sub FindTrustHope()

Dim B As Long, C As Long, i As Long
Dim findTrust As String
Dim findHope As String
B = Cells(Rows.Count, "B").End(xlUp).Row
C = Cells(Rows.Count, "C").End(xlUp).Row
findTrust = "trust"
findHope = "hope"
    For i = B To 1 Step -1
    If InStr(Cells(i, "B"), findTrust) > 0 Or InStr(Cells(i, "B"), findHope) > 0 Then
        Cells(i, "B").Interior.Color = vbRed
    End If
    If InStr(Cells(i, "C"), findTrust) > 0 Or InStr(Cells(i, "C"), findHope) > 0 Then
        Cells(i, "C").Interior.Color = vbRed
    End If

Next i
End Sub