excel一个单元格中有很多内容，怎么在其中找出一个字并改变颜色。

发布网友发布时间：2022-04-29 11:56

共3个回答

热心网友时间：2023-10-05 11:43

答：Excel本身无此功能，但可以编写程序实现这个功能。

按ALT+F11组合键，打开VB窗口，执行"插入"-"模块"，复制下面代码进去，按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

追问这是哪里不对？

追答没明白你的意思

热心网友时间：2023-10-05 11:43

代码要用到characters，instr ，如果你不懂就复制到Word中查找替换为查找内容字体颜色替换为你需要的，再复制过来。

热心网友时间：2023-10-05 11:43

用代码来搞定，手工比较麻烦！