很多同学会觉得 Excel 单个案例讲解有些碎片化，初学者未必能完全理解和掌握。不少同学都希望有一套完整的图文教学，从最基础的概念开始，一步步由简入繁、从入门到精通，系统化地讲解 Excel 的各个知识点。

现在终于有了，以下专栏，从最基础的操作和概念讲起，用生动、有趣的案例带大家逐一掌握 Excel 的操作技巧、快捷键大全、函数公式、数据透视表、图表、打印技巧等……学完全本，你也能成为 Excel 高手。

如何判断一个单元格中是否包含某个关键字，并给出提示？今天教大家两种方法。

案例：

遍历下图 1 中 C 列的姓名，判断每个姓名是否包含“钢”字。

效果如下图 2、3 所示。

解决方案 1：

1. 在 D2 单元格中输入以下公式 --> 下拉复制公式：

=IF(ISERROR(FIND("钢",C2)),"","是")

公式释义：

• FIND("钢",C2)：在 C2 单元格中查找关键字“钢”，返回代表其在字符串中位置的数字或错误值；
• ISERROR(...)：判断上述结果是否为错误值，返回逻辑结果；
• IF(...,"","是")：如果是错误值就返回空值，否则返回“是”

解决方案 2：

1. 将光标放置到工作表名称处 --> 右键单击 --> 在弹出的菜单中选择“查看代码”

现在进入了 VBE。

2. 在上方两个下拉菜单中分别选择 Wordsheet 和 SelectionChange。

3. 输入以下代码 --> 关闭 VBE

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim keyword As String
Dim activeCellContent As String
Dim found As Boolean

keyword = "钢" '关键字设置

activeCellContent = ActiveCell.Value '活动单元格内容

found = InStr(1, activeCellContent, keyword, vbTextCompare) > 0 '使用InStr函数检查关键字是否存在

If found Then '如果找到关键字，则执行相关操作

MsgBox "活动单元格包含关键字: " & keyword

Else
MsgBox "活动单元格不包含关键字: " & keyword '如果找不到关键字，则执行相关操作

End If

End Sub

单击任意一个单元格，就会弹出一个对话框，告知该单元格内是否包含所设置的关键字。

4. 最后别忘了将文件保存为 .xlsm 格式。