如何在 Excel 中删除非粗体的单元格或行？

假设您有一个包含粗体单元格和非粗体单元格的数据区域，如下图所示。现在，您需要删除非粗体的单元格或行。与其手动逐个删除非粗体单元格，不如通过本教程介绍的方法快速解决此问题。

使用 VBA 删除非粗体的行

使用“查找和替换”以及“选区助手”删除非粗体的单元格

使用 Kutools for Excel 删除非粗体的行/单元格

要删除非粗体的行，可以使用 VBA 代码来处理。

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

2. 单击 插入 > 模块，然后将以下 VBA 代码粘贴到新 模块 窗口中。

VBA：删除非粗体的行。

Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
    Dim xRg As Range
    Dim xDelRg As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim I As Long
    Dim xBold As Variant
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
        Exit Sub
    End If
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xBold = xRg.Rows(I).Cells.Font.Bold
        If TypeName(xBold) = "Boolean" Then
            If xBold = False Then
                If xDelRg Is Nothing Then
                    Set xDelRg = xRg.Rows(I).EntireRow
                Else
                    Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
                End If
            End If
        End If
    Next
    xDelRg.Delete
    Application.ScreenUpdating = xUpdate
End Sub

3. 按 F5 键运行 VBA 代码。在弹出的 Kutools for Excel 对话框中，请指定要删除不含粗体单元格的行的范围，并单击 确定 按钮。

然后，您可以发现不包含粗体单元格的行已被删除。

注意：只有当同一行中的所有单元格都为非粗体时，才能删除这些行。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

使用“查找和替换”以及“选区助手”删除非粗体的单元格

如果您只想从非粗体单元格中删除单元格内容，可以先使用“查找和替换”功能选择粗体单元格，然后使用 Kutools for Excel 的“选区助手”反向选择非粗体单元格，最后删除其内容。

1. 选择要删除非粗体单元格的数据范围，按 Ctrl + F 打开“查找和替换”对话框，并单击 选项 按钮。请参见截图：

2. 单击 格式 进入 “查找格式”对话框，在 字体选项卡下，从 字体样式列表中选择粗体。请参见截图：

3. 单击 确定 > 查找全部，所有粗体单元格都会列在“查找和替换”对话框中，按 Ctrl + A 全选它们，然后关闭“查找和替换”对话框。请参见截图：

4. 然后保持这些单元格处于选中状态，单击 Kutools > 选择 > 选区助手。请参见截图：

5. 在弹出的对话框中，首先勾选 反向选择 选项，然后选择 原数据区域。现在可以看到选择已反转。请参见截图：

6. 单击 关闭。现在按 Delete 键从非粗体单元格中删除单元格内容。

使用 Kutools for Excel 删除非粗体的行/单元格

上述方法不够简便，这种情况下，您可以使用 Kutools for Excel 的 选择类似格式单元格 工具快速识别非粗体单元格，然后删除它们。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择所需的数据范围，然后单击 Kutools > 选择 > 选择类似格式单元格。请参见截图：

2. 在弹出的对话框中，单击 从单元格选择格式 按钮以从数据范围中选择一个非粗体单元格，然后仅在 字体 部分下方列表中勾选 粗体。请参见截图：

3. 单击 确定，会弹出一个对话框提醒您所选单元格的数量，只需单击 是 来关闭它。

现在，所有非粗体单元格都被选中，按 Delete 键删除单元格内容。或者，如果您想删除非粗体的行，右键单击任意一个选中的单元格并选择 删除 > 整行。请参见截图：

演示：删除非粗体的单元格/行

相关文章：

• 如何在 Excel 中将超链接转换为纯文本？
• 如何在 Excel 中统计单元格是否以特定文本开头或结尾？
• 如何在 Excel 中统计并删除列表中的重复项？