excel - InStr 搜索和单元格中的逗号

Question

我有一堆包含文本的行列，例如:

dog,cat,mouse
bat,dog,fly
fish,beaver,horse

我正在尝试搜索并突出显示包含特定单词的行:

Public Sub MarkDuplicates()
Dim iWarnColor As Integer
Dim rng As Range
Dim rngCell As Variant
Dim LR As Long
Dim vVal
Dim tRow


LR = Cells(Rows.Count, "B").End(xlUp).Row

Set rng = Range("B1:B" & LR)
iWarnColor = xlThemeColorAccent2

For Each rngCell In rng.Cells
    tRow = rngCell.Row
    If InStr(rngCell.Value, "dog") = 1 Then
        rngCell.Interior.ColorIndex = iWarnColor

    Else
        rngCell.Interior.Pattern = xlNone
    End If
Next

结束子

只要单词“dog”是逗号字符串中的第一个单词，就可以正常工作，因此它会突出显示第一行而不是第二行，因为单词“dog”出现在“bat”之后。我需要先去掉逗号还是有更好的方法？

Answer 1

看起来您的最终目标是根据“狗”是否在单元格中为行着色。这是一种不同的方法，甚至不涉及 VBA(此示例假设您的数据全部位于 A 列中):

1. 在右侧创建一个新列。使用公式 =IF(NOT(ISERROR(FIND("dog",A1))),1,0)。您可以稍后隐藏该列，这样用户就看不到它。基本上，如果某处有“dog”一词，则返回 1，否则返回 0。
2. 选择整个第一行
3. 在条件格式下，转到新规则
4. 选择使用公式
5. 对于您的公式，请尝试 =$B2=1
6. 现在您已经对一行进行了有条件的着色，请将格式复制并粘贴到其他行。

所有行现在都应该自动更新。

额外加分:如果此数据被格式化为表对象，则条件格式应在添加新行时自动延续到新行。