如何在Excel的单元格中给某些单词上色或突出显示？

Sub HighlightStrings() Dim xHStr As String, xStrTmp As String Dim xHStrLen As Long, xCount As Long, I As Long Dim xCell As Range Dim xArr On Error Resume Next xHStr = Application.InputBox("What is the string to highlight：", "KuTools For Excel", , , , , , 2) If TypeName(xHStr) <> "String" Then Exit Sub Application.ScreenUpdating = False xHStrLen = Len(xHStr) For Each xCell In Selection xArr = Split(xCell.Value, xHStr) xCount = UBound(xArr) If xCount > 0 Then xStrTmp = "" For I = 0 To xCount - 1 xStrTmp = xStrTmp & xArr(I) xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3 xStrTmp = xStrTmp & xHStr Next End If Next Application.ScreenUpdating = True End Sub

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！