如何在Excel中统计具有特定文本和填充/字体颜色的单元格数量？

统计仅包含一个条件的单元格数量可能对您来说很容易，例如统计所有包含特定文本或字体/填充颜色的单元格。但是，您知道如何统计满足多个条件的单元格吗？例如，统计同时包含特定文本和字体/填充颜色的单元格数量。本文将向您展示解决方案。

使用VBA代码统计具有特定文本和填充颜色的单元格
使用VBA代码统计具有特定文本和字体颜色的单元格

使用VBA代码统计具有特定文本和填充颜色的单元格

假设您有一个如下截图所示的表格，要根据单元格E2中的文本和填充颜色来统计B列中的单元格，请应用以下VBA代码。

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

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

VBA代码：统计具有特定文本和填充颜色的单元格

Sub CountFillColorValue()
'Update by Extendoffice 20180702
    Dim I As Long
    Dim xNum As Long
    Dim Rows As Long
    Dim xRgD As Range
    Dim xRg, xRgS As Range
    On Error Resume Next
    Set xRg = Range("B2:B9")
    Set xRgS = Range("E2")
    Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    xNum = 0
    For I = 1 To xRows
        If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
            If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
                xNum = xNum + 1
            End If
        End If
    Next
    xRgD = xNum
End Sub

备注：在代码中，B2:B9 是您要统计的区域，E2 包含了您要基于统计的文本和填充颜色。您可以根据需要更改它们。

3. 按 F5 键运行代码，然后会弹出一个 Kutools for Excel 对话框，请选择一个单元格放置结果，然后点击 确定 按钮。请参见截图：

然后统计结果将立即显示在所选单元格中。

使用 Kutools AI 解锁 Excel 魔法

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

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

使用VBA代码统计具有特定文本和字体颜色的单元格

要基于单元格E2中的文本和字体颜色统计范围B2:B9内的单元格，请按照以下步骤操作。

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

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

VBA代码：统计具有特定文本和字体颜色的单元格

Sub CountFontColorValue()
'Update by Extendoffice 20180702
    Dim I As Long
    Dim xNum As Long
    Dim xRows As Long
    Dim xRgD As Range
    Dim xRg, xRgS As Range
    On Error Resume Next
    Set xRg = Range("B2:B9")
    Set xRgS = Range("E2")
    Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    xNum = 0
    For I = 1 To xRows
        If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
            If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
                xNum = xNum + 1
            End If
        End If
    Next
    xRgD = xNum
End Sub

备注：在代码中，B2:B9 是您要统计的区域，E2 是您要基于统计的标准。您可以根据需要更改它们。

3. 按 F5 键运行代码，然后会弹出一个 Kutools for Excel 对话框，请选择一个单元格放置结果，然后点击 确定 按钮。请参见截图：

您将得到如下截图所示的结果：

相关文章：

• 如何在Excel中统计两个值或日期之间的单元格数量？
• 如何在Excel中统计选定区域内具有特定文本的单元格数量？
• 如何在Excel中统计包含文本或部分文本的单元格数量？
• 如何在Excel中统计某个单元格或单元格范围内特定单词的数量？