Excel如何实现关键词查找并标记

我们通过一个关键词查询案例来掌握一下文本处理函数和循环查询，算是对VBA入门的一个巩固！

需求： 找出所有含有 ' 科技 ' 的公司，字体 红色 + 加粗

逻辑处理 ： 我们循环查询每一个公司名称，因为要标记，所以我们需要找到开始的位置+2 文字设置字体的颜色和加粗（这个部分可以通过录制宏修改）

▼ 代码执行效果

源码：

Option Explicit


'功能：

关键词查询并标记红色+加粗

'
作者：

E精精


'公众号：

Excel办公实战

'
日期：


20211207



'---------------------------------------------

Sub 关键词查询()

    Dim rng As Range '
定义一个单元格变量

    Dim idx
As
 Long
'科技出现的位置

    '
遍历C3：

C18这个区域

    
For
 Each rng In Range(
'C3:C18'
)

        idx = InStr(rng.Value,
'科技'
)

        
If
 idx >
0
 Then

            With
rng.Characters(idx,
2
).Font

                .Color
= vbRed
'设置为红色

                .Bold
= True '
字体加粗

            End
With

        End
If


    Next

End Sub

代码基本都有注释，如果自己使用可以简单修改一下 需要处理的数据区域！

C3:C18

这里我们用到了一种新的循环方式，不同于上次我们讲乘法口诀使用的按次循环，本次是按对象迭代，区域中的每一个单元格都会本遍历，如果是一个区域，会按照 先行后列 的顺序处理！

看打印结果，依次是 A1->B1->A2->B2！

字体的处理，我们使用Range.Characters对象，如果你不会写，其实可以通过录制宏，自己设置一下字体颜色得到，不过录制宏的 代码冗余 很多，自己找到关键地方提取！

新手可以提取以上框起来的核心代码，如果你熟悉，就可以直接自己写了，代码不完全一样，效果一样的！

如果你还想把这些内容提取出来那么，使用函数比较简单！

当然我们也可以使用代码，直接加一两句即可！ 但是如果你先做的更加友好通用一些，我们就需要加 亿 点点细节 考虑通用性和容错！

Excel办公实战

一起学习Excel，0基础、进阶、高级图文动画教程！技巧，函数，技巧，VBA，可视化图表，PBI！视频教程、免费模板、精英培训！VLOOKUP系列教程！

1089篇原创内容

公众号

▲千篇原创，您的问题，都有答案，只差一个关注

然后就变成这样了，代码模板为什么不太好开发，因为要考虑的东西太多，每一个环节实际都有可能出现奇奇怪怪的操作，所以……

▼ 模板-加入交互和容错！

模板下载：