附件 为选中 即变色， 宏触发事件 '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
