怎样使EXCEL中查找的内容高亮,不是查找到的单元格高亮?

发布网友 发布时间：2022-04-23 06:48

我来回答

共2个回答

热心网友 时间：2022-06-17 00:19

答：Excel本身不提供这样的功能，但可以编写程序来增添这功能。我写了段代码，按ALT+F11，打开编辑器，"插入"--"模块"，然后复制下面代码进去，按F5，程序出现提示框，输入查找内容，找到后单元格相关字样会显示绿色。

Sub Demo()
    Dim KeyWords As String
    Dim i As Integer
    Dim C As Range
    Dim ComRng As Range
    Dim FirstAddress As String
    
    KeyWords = InputBox("输入查找关键字", "提示")
    With ActiveSheet.UsedRange
        Set C = .Find(what:=KeyWords, lookat:=xlPart)
        If Not C Is Nothing Then
            FirstAddress = C.Address
            Do
                With C
                    .Font.ColorIndex = xlAutomatic
                    .Characters(Start:=InStr(1, C, KeyWords), Length:=Len(KeyWords)).Font.Color = vbGreen
                End With
                Set C = .FindNext(C)
            Loop While Not C Is Nothing And C.Address <> FirstAddress
        Else
            MsgBox "没找到相关内容", vbExclamation, "提示"
        End If
    End With
End Sub

热心网友 时间：2022-06-17 00:20

excel本身并无此功能，楼上是正解。
不过比较麻烦，如果只是为了查找和突出显示，可以：
1、ctlr+h启动替换功能，输入需要查找的 内容 ，比如 “发烧”；
2、替换那里输入 “发烧”，点击 选项 然后点击右侧出现的 “格式”选择一种字体、字体颜色、加粗、下划线等作为提醒是可以实现的。
不过遗憾的是，好像不能高亮显示。