VBA代碼突出顯示不包含特定文本的單元格

Question

我在A列中有以下值的列表，如下所示。 我要突出顯示沒有字符串“是”，“否”和“ N / A”的單元格

Moderate
High
Yes - no structural changes
High
Moderate
Yes
Moderate
N/A
High
No
Nos

我已經嘗試了下面的VBA，但是它也沒有突出顯示“是-沒有結構性變化”和“否”之類的值。

Dim a As Range
For Each a In Range(Range("a1"), Range("a" & Rows.Count).End(xlUp))
    If Not (a.Value Like "**Yes**" Or a.Value Like "**No**" Or a.Value Like "**N/A**") Then
        a.Interior.ColorIndex = 3
    End If
Next a

Answer 1

只需添加條件格式設置規則即可。

with worksheets("sheet1")
  with .range(.cells(1, "A"), .cells(.rows.count, "A").end(xlup))
    with .formatconditions.add(type:=xlexpression, _
                               formula1:="=OR(COUNTIF(A1, ""*yes*""), COUNTIF(A1, ""*no*""), COUNTIF(A1, ""*n/a*""))")
      .interior.color = vbred
    end with
  end with
end with

您自己的代碼需要將通配符與Like一起使用。

If Not (a.Value Like "*Yes*" Or a.Value Like "*No*" Or a.Value Like "*N/A*") Then