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

功能：

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

bug:

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

改进

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

步骤

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

Sub SelectionChangeColor()'//find T in selected cells and change its colorDim rng As Range, I As IntegerDim T As StringFor Each rng In Selection'*****************T = "*/" '//the string that you want to emphasize'*****************I = 1Do While InStr(I, rng, T) > 0With rng.Characters(InStr(I, rng, T), Len(T)).Font'**************************.Bold = True.Color = vbRed'**************************End WithI = InStr(I, rng, T) + 1LoopNextEnd Sub