excel - 创建宏以在工作表中搜索字符串列表并突出显示该行

Question

有人可以帮我创建一个宏，它将在 Excel 工作表中搜索 30 个字符串的列表(例如 SV-32488r1 、 SV-33485r1 )并突出显示 Row什么时候发现？

我正在使用 Office 2010。

我不是 Excel 或 VBA 专家，所以我不知道从哪里开始。

我发现的搜索只允许我搜索一个字符串。

非常感谢你。

Answer 1

Public Sub HighlightListedValues()
    Dim strConcatList As String
    Dim cell As Range

    'Creates a string concatenating your list of strings, separated by |s
    'e.g. "item1|item2|item3|item4|"
    For Each cell In Sheets("List").Range("A1:A30")
        strConcatList = strConcatList & cell.Value & "|"
    Next cell

    'For each used cell in Column A of sheet1, check whether the value in that cell
    'is contained within the concatenated string
    For Each cell In Intersect(Sheets("Sheet1").Range("A:A"), Sheets("Sheet1").UsedRange)
        If InStr(strConcatList, cell.Value) > 0 Then       'InStr returns 0 if the string isn't found
            cell.EntireRow.Interior.Color = RGB(255, 0, 0) 'Highlights the row in red if value found
        End If
    Next cell
End Sub

如果满足以下条件，这将以红色突出显示相关行:

与您正在搜索的值匹配的数据位于名为“Sheet1”

的工作表的 A 列中。

您的字符串列表包含在名为“列表”

的工作表的单元格 A1:A30 中

根据需要修改工作表和范围的名称，例如如果您想在名为“数据”的工作表的 A 到 C 列中进行搜索，您可以修改 Sheets("Sheet1").Range("A:A")至 Sheets("Data").Range("A:C")
希望这可以帮助!