VBA 查找指定内容所在行并标红

下面是一段 VBA 代码来实现查找指定内容所在行并标红的操作：

Sub HighlightRows()
    Dim cell As Range
    Dim searchText As String

    searchText = InputBox("请输入您要查找的内容：")
    If searchText = "" Then Exit Sub

    For Each cell In ActiveSheet.UsedRange
        If InStr(cell.Value, searchText) > 0 Then
            cell.EntireRow.Interior.Color = RGB(255, 0, 0)
        End If
    Next
End Sub

在 Excel 中打开“开发工具”，然后将上面的代码复制到模块中。运行代码后，它将提示您输入您要查找的内容，如果该内容出现在工作表中，则将对应的行标记为红色。