excel查找关键字变色

发布网友发布时间：2022-04-21 01:23

共2个回答

热心网友时间：2022-05-26 20:30

最好的办法是：
（1）选中所有单元格（Ctrl+A）
（2）选“条件格式”
（3）再选“条件格式”的“突出显示单元格规则”中的“等于”
（4）在“等于”对话框中输入你想查找的值
（5）按“确定”
这时，与你查找内容相等的单元格为默认显示为“浅红色填充色深红色文本”。如果想改变突出显示的颜色，在刚才第（4）步中的对话框中设置。
如果想取消突出显示，则在“条件格式”的“清除规则”中进行操作。或用“Ctrl+Z”对刚才的操作进行取消。
祝你好运。

热心网友时间：2022-05-26 20:30

Sub search()
mword = InputBox("请输入关键字：")
n = Len(mword)
Cells.Font.Color = 0
Cells.Interior.Color = xlNone
With ActiveSheet.Cells
Set c = .Find(mword, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Color = RGB(255, 255, 0)
n1 = InStr(c.Value, mword)
If n1 = 1 Then
c.Characters(Start:=1, Length:=n).Font.Color = 255
c.Characters(Start:=n + 1, Length:=Len(c.Value) - n).Font.Color = 0
ElseIf n1 + n = Len(c.Value) Then
c.Characters(Start:=1, Length:=Len(c.Value) - n).Font.Color = 0
c.Characters(Start:=Len(c.Value) - n + 1, Length:=n).Font.Color = 255
Else
c.Characters(Start:=1, Length:=n1 - 1).Font.Color = 0
c.Characters(Start:=n1, Length:=n).Font.Color = 255
c.Characters(Start:=n1 + n + 1, Length:=Len(c.Value) - n1 - n).Font.Color = 0
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

包含的关键字的单元格会变成*，关键字会变成红色。追问这么长要复制到哪里啊？

追答ALT+F11 插入模块复制代码粘贴

然后回到 excel 中包含你的数据的表格 ALT+F8 执行宏就可以了