附件 为选中 即变色, 宏触发事件 'Excel 内右键点 工作表 标签, 查看代码,如下代码复制进去,开启宏即可Sub Worksheet_SelectionChange(ByVal Target As Range)Dim rng As Range, i As IntegerFor Each rng In Selection i = 1 Do While InStr(i, rng, 家庭) 0 rng.Characters(InStr(i, rng, 家庭), 2).Font.ColorIndex = 3 i = InStr(i, rng, 家庭) + 2 LoopNextEnd Sub