在单元格上搜索以两个特定字母开头的字符串，并突出显示整行

Question

我想突出显示包含以“ZZ *”绿色开头的字母的行 然后突出显示包含以“ZV *”黄色开头的字母的行 等等。

我在VB脚本中使用了条件格式化公式，它适用于第一个条件但忽略了第二个条件。如果有人有不同的方式或可以改进我的代码，那将是伟大的。谢谢。

Sub color1()
   With Range("A:Z").FormatConditions
      .Delete
      Range("A2").Activate
      .Add Type:=xlExpression, Formula1:="=ISNUMBER(MATCH(""ZZ*"",1:1,0))"
      .Item(1).Interior.ColorIndex = 41    
   End With
End Sub

A栏有

ZZ3543   
ZV5635   
ZX4635   
ZC3456     
ZV3456   

Answer 1

这个适用于我：

Sub color1()
    'change Sheet1 to suit
    With ThisWorkbook.Worksheets("Sheet1").Range("A:Z").FormatConditions
        .Delete
        .Add Type:=xlExpression, Formula1:="=ISNUMBER(MATCH(""ZZ*"",1:1,0))"
        .Item(1).Interior.ColorIndex = 4 'green
        .Add Type:=xlExpression, Formula1:="=ISNUMBER(MATCH(""ZV*"",1:1,0))"
        .Item(2).Interior.ColorIndex = 6 'yellow
    End With
End Sub

Answer 2

以下是您可以开始的事情：

Sub Color1()
    For i = 1 To 5
        If Left(Sheet1.Cells(i, 1), 2) = "ZZ" Then Sheet1.Rows(i).Interior.ColorIndex = 41
    Next
End Sub