VBA 关键词凸显（利用【】符号）

最新推荐文章于 2024-07-23 22:49:02 发布

weixin_41706566

最新推荐文章于 2024-07-23 22:49:02 发布

阅读量299

点赞数

CC 4.0 BY-SA版权

分类专栏： vba 字符串处理文章标签： vba 字符串处理

本文链接：https://blog.youkuaiyun.com/weixin_41706566/article/details/95986071

vba 同时被 2 个专栏收录

8 篇文章

订阅专栏

字符串处理

2 篇文章

订阅专栏

因Excel无法对单元格特定关键词修改字体颜色，本文采用“【】”来凸显关键词，方便工作，程序由作者好友丰哥提供。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

程序由我的好朋友丰哥提供！！
因为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