一个单元格内某个符合条件的字符标色

liquanchun

求教，如下图标所示颜色如何用VBA代码进行标记，谢谢

hfwufanhf2006

我好像总看见有人在问这问题，也不知道是不是都是你在问：

Application.ScreenUpdating = False

Dim arr
arr = Range("e2:e" & [e10000].End(3).Row)
Columns("b:b").Select
Selection.Font.ColorIndex = xlAutomatic
Selection.Font.Bold = False

For i = 2 To [b100000].End(3).Row
    For j = 1 To UBound(arr)
        If InStr(Cells(i, 2), arr(j, 1)) > 0 Then
           s1 = InStr(Cells(i, 2), arr(j, 1))
           s2 = Len(arr(j, 1))
           Cells(i, 2).Select
           With ActiveCell.Characters(Start:=s1, Length:=s2).Font
             .FontStyle = "加粗"
             .Color = -16776961
             .ThemeFont = xlThemeFontMinor
           End With
        End If
    Next j
Next i

Cells(1, 1).Select
Application.ScreenUpdating = True

liquanchun

hfwufanhf2006 发表于 2019-11-15 12:16
我好像总看见有人在问这问题，也不知道是不是都是你在问：

Application.ScreenUpdating = False

我是第一次提问，谢谢您