VBA查找单元格内指定文字并标红加粗

VBA查找单元格内指定文字并标红加粗

功能：

• 选中想要查找的单元格，在函数内点击运行，实现将指定的文字标红加粗的功能

bug:

• 指定文字会区分大小写，如何让它不区分大小写？

改进

• 将是否加粗，和标记的颜色设为参数
• 将需要修改的字符串设为参数
• 批量标红加粗字符串

步骤

1. 选中想要处理的单元格，可选中行、列、指定区域、或者全部。
2. 将你想标红加粗的字符串赋值给下列函数中的变量T，执行。
3. 可尝试修改************包围的内容来达到你想要的效果

Sub SelectionChangeColor()
'//find T in selected cells and change its color
Dim rng As Range, I As Integer
Dim T As String

For Each rng In Selection
    '*****************
    T = "*/" '//the string that you want to emphasize
    '*****************
    I = 1
    Do While InStr(I, rng, T) > 0
        With rng.Characters(InStr(I, rng, T), Len(T)).Font
        '**************************
            .Bold = True
            .Color = vbRed
        '**************************
        End With
        I = InStr(I, rng, T) + 1
    Loop
Next

End Sub