如何在Excel中按粗体字符筛选单元格？

您可以在Excel中应用粗体字样式来格式化单元格中的数据或内容，但您是否知道如何通过包含粗体字样式的单元格来筛选呢？本文收集了几种巧妙的VBA宏，用于在Excel中按粗体字符筛选单元格。

使用辅助列筛选粗体单元格
使用VBA代码筛选粗体单元格
使用一个神奇工具轻松筛选粗体单元格
更多数据筛选教程…

使用辅助列筛选粗体单元格

假设您需要像以下截图所示筛选B列中的所有粗体单元格，请按照以下步骤操作：

下面的用户定义函数有助于识别某列中的单元格是否为粗体，并在辅助列中返回TRUE或FALSE的结果。您可以筛选出所有TRUE结果，以仅显示B列中的粗体单元格。

1. 按下 Alt + F11 键打开Microsoft Visual Basic for Application窗口。

2. 在Microsoft Visual Basic for Application窗口中，点击 插入 > 模块，然后将以下VBA代码复制到模块窗口中。见截图：

VBA代码：按粗体字符筛选单元格

Function IsBold(rCell As Range)
IsBold = rCell.Font.Bold
End Function

3. 按下 Alt + Q 键关闭代码窗口。

4. 选择一个与表格相邻的空白单元格（所选单元格应位于筛选表格第一行的同一行上），将以下公式复制到其中并按回车键。

=IsBold(B2)

5. 继续选择第一个结果单元格，拖动填充柄以获取所有结果。见截图：

6. 选择辅助列的标题，点击 数据 > 筛选。点击标题单元格旁边的箭头按钮，只勾选TRUE框，然后点击确定。

现在B列中的所有粗体单元格都已筛选出来，如下截图所示。

使用VBA代码筛选粗体单元格

1. 选择要筛选出所有粗体单元格的列范围（不包括标题单元格）。在这种情况下，我选择B2:B16。

2. 按下 Alt + F11 键打开Microsoft Visual Basic for Application窗口。

3. 在Microsoft Visual Basic for Application窗口中，点击 插入 > 模块，然后将以下VBA代码复制并粘贴到模块窗口中。

VBA代码：筛选一列中的粗体单元格

Sub FilterBold()
'Updated by Extendoffice 20191018
Dim cell As Range
For Each cell In Selection
If cell.Font.Bold = False Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub

4. 按下 F5 键运行此宏。然后立即筛选出选定列范围中的所有粗体单元格。

使用一个神奇工具轻松筛选粗体单元格

在本节中，我们推荐给您一个方便的工具—— Kutools for Excel的筛选粗体单元格实用程序。使用此工具，只需几次点击即可立即筛选选定列中的所有粗体单元格。

1. 选择要筛选粗体单元格的列范围，点击 Kutools Plus > 特殊筛选 > 筛选粗体 即可完成。见以下演示：

相关文章