下面是一段 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.En