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

【问题标题】：Search for string on cell starting with two specific letters and highlight entire row在单元格上搜索以两个特定字母开头的字符串并突出显示整行
【发布时间】：2014-03-04 06:37:08
【问题描述】：

我想突出显示包含以“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

【问题讨论】：

仅供参考 - vbscript 是与 VBA 不同的语言。如果您在 Excel 中编写宏，那么您使用的是 VBA，因此在您的问题中使用“vbscript”可能会引起一些混乱......

标签： excel vbscript vba

【解决方案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

【讨论】：

【解决方案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

【讨论】：