WPS Excel表格改变指定文字的颜色

依次点击【开发工具】→【VB编辑器】,也可以直接使用【Alt+F11】组合键调出VB编辑器。

依次点击【插入】→【模块】。

在模块代码框里面输入以下VBA程序代码，然后按【F5】→【运行】。

'修改单元格中指定文字的颜色'
Public Sub ChgTxtColor()
    Set myRange = Range("A1:A100")  '设置单元格范围'
    substr = "指定文字"   '待修改颜色的文字'
    txtColor = 5   '修改后的颜色，5代表蓝色'
    
    '第一层循环遍历所有单元格'
    For Each myString In myRange 'myString是单元格中的字符串'
        lenstr = Len(myString)
        lensubstr = Len(substr)
        '第二层循环遍历单元格内的字符串'
        For i = 1 To lenstr
            tempString = Mid(myString, i, lensubstr)
            If tempString = substr Then
                myString.Characters(Start:=i, Length:=lensubstr).Font.ColorIndex = txtColor
            End If
        Next i
    Next myString
End Sub

 

Excel颜色索引

PS：指定文字可以加符号，其实应该说是指定字符串的，但这个专业术语部分人不了解。