程序由我的好朋友丰哥提供!!
因为Excel不能对在单元格中的特定关键词修改字体颜色,所以本文将用“【】”来将关键词凸显,以便工作。
'这代码应放在personal.xlsb中,然后在 开发工具-宏-设置快捷键。才能使用
Sub 特征凸显()
Dim aa As Variant
Dim bb As Variant
Dim cc As Variant
Dim arr As New Collection
wz = ActiveWindow.RangeSelection.Address
aa = InputBox("请输入特征词" & Chr(13) & "如有多个特征词请以空格分开" & Chr(13) & Chr(13) & "PS:记得要在选定范围旁生成一列空列,如果忘记了请点取消", Title:="特征凸显", Default:="")
cc = Split(aa, " ")
For Each i In Range(wz)
ls_wb = i
For Each o In cc
ls_wb = Replace(ls_wb, o, " 【" + o + "】 ")
i(1, 2) = ls_wb
Next o
Next i
End Sub