Excel 提示：按色彩（背景、字体、条件格式）对贮存格进行计数/求和-英雄云拓展知识分享

在平常任务中，色彩标记是快捷辨别和突出显示关键数据的流行方法。 但是，我们如何针对特定色彩（填满色彩、字体色彩、条件格式）对贮存格资料进行计数或总和？ 预设情况下，Excel 不提供按色彩进行计数或求和的直接功能。 儘管如此，透过一些技能和间接方法，我们依然可以实现这一目标。 本文将探讨如何以色彩对资料进行计数或求和。

针对背风景对单元格进行计数和求和

• 经过使用用户定义内涵函数
• 透过使用强盛的功能 - tools for Excel
• 透过使用过滤器和小计

针对字体色彩对贮存格进行计数和求和

• 经过使用用户定义内涵函数
• 透过使用一个简单的功能 - tools for Excel

针对条件格式色彩对贮存格进行计数和求和

• 透过使用VBA程式码
• 透过使用智慧功能 – tools for Excel

影片：针对色彩对贮存格进行计数和求和

针对背风景对单元格进行计数和求和

举例来看，如果您有一系列数据，其中的值填入有不同的背景色彩，以下面的萤幕截图所示。 若要针对特定色彩对贮存格进行计数或求和，Excel 不提供针对背景色彩对贮存格进行计数或求和的直接功能。 但是，只要有一点聪明才干和一些方便的技术，您就能够完成这项任务。 让我们在本节中探索一些有用的方法。

使用使用者定义内涵的函数按背景色彩对贮存格进行计数和求和

在这里，我们将向您展现如何建立和使用这样的使用者定义内涵函数来解决 Excel 中的此任务。 请依照以下步骤进行：

第 1 步：打开 VBA 模块编辑器并复制代码

1. 媒体推荐 Alt + F11键 键打开 Microsoft Visual Basic for Applications 窗口。
2. 在打开的视窗中，按一下 插入 > 模块 创建一个新的空白模块。
3. 然后，将以下程式码复制并贴上到空白模组中。
   VBA程式码：针对背景色彩对贮存格进行计数和求和

   Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean = False) As Variant
   'Updateby
   Dim rCell As Range
   Dim lCol As Long
   Dim vResult As Double
   lCol = rColor.Interior.ColorIndex
   vResult = 0
   If SUM Then
   For Each rCell In rRange
   If rCell.Interior.ColorIndex = lCol Then
   vResult = vResult + rCell.Value
   End If
   Next rCell
   Else
   For Each rCell In rRange
   If rCell.Interior.ColorIndex = lCol Then
   vResult = vResult + 1
   End If
   Next rCell
   End If
   ColorFunction = vResult
   End Function
   

步骤 2：建立公式以按背景色彩对贮存格进行计数和求和

贴上上述程式码后，关闭模组窗口，然后套用以下公式：

• 针对特定背景色彩对单元格进行计数：
  将下面提供的公式复制或键入到所需的贮存格中以取得结果。 然后，向下拖曳填充手柄以取得其他结果。 看截图：
  

  =colorfunction(G2,$B$2:$E$12,FALSE) 

  备注：在此公式中， G2 是具有您想要匹配的特定背景色彩的参考单元格； $B$2:$E$12 是要计算 G2 色彩的贮存格数量的范围； 假 用于对具有匹配色彩的细胞进行计数。

• 针对特定背景色彩对单元格求和：
  将下面提供的公式复制或键入到所需的贮存格中以取得结果。 然后，向下拖曳填充手柄以取得其他结果。 看截图：
  

  =colorfunction(G2,$B$2:$E$12,TRUE)  

  备注：在此公式中， G2 是具有您想要匹配的特定背景色彩的参考单元格； $B$2:$E$12 是要计算 G2 色彩的贮存格数量的范围； TRUE 用于对具有匹配色彩的单元格求和。

透过强盛的功能按背景色彩对单元格进行计数和求和

对那些不熟习程式设计的人来讲，VBA 可能显得相当复杂。 在这里，我们将介绍一个强盛的工具— Excel的tools，其 按色彩计数 此功能可以让您只需点击几下便可针对背景色彩轻鬆计算（计数、总和、平均值等）。 使人印象深入的是， 按色彩计数 功能不单单是背景色彩——它还可以针对字体色彩和条件格式进行辨别和计算。

后 下载并安装 tools for Excel，首先，选择要针对特定背景色彩对贮存格进行计数或求和的资料范围。 接下来，导航至 tools 加 并选择 按色彩计数.

在 按色彩计数 对话方块中，请指定操作：

1. 选择 标準格式 来自 上色方式 下拉列表;
2. 指定 背景 来自 计数类型 下拉列表，可以在对话框中预览每种背景色彩的统计结果；
3. 最后点击 生成报告 将计算结果汇出到新工作簿。

结果：

现在，您将取得一个包括统计信息的新工作簿。 看截图：

使用滤镜和小计功能按背景色彩对贮存格进行计数和求和

假定我们有一个水果销售表，以下图所示，我们将对表中的彩色单元格进行计数或求和 金额 列。

步骤 1：利用 SUBTOTAL 函数

选择空白贮存格进入小计功能。

• 若要对具有相同背景色彩的所有贮存格进行计数，请输入公式：

  =SUBTOTAL(102, F2:F16)

• 若要将所有具有相同背景色彩的贮存格相加，请输入公式；

  =SUBTOTAL(109, F2:F16)

• 备注: 在上面的公式中， 102 表示对过滤清单中的数值进行计数，同时排除隐藏单元格； 109 表示对挑选清单中不包括隐藏贮存格的值进行求和； F2：F16 是计算计数或总和的范围。

第 2 步：针对特定色彩过滤单元格

1. 选择表格标题，然后按一下 数据 > 挑选。 看截图：
   
2. 点击 挑选 图标  在标题贮存格中 金额 列，然后单击 经过彩色滤光片 和您将顺次计算的指定色彩。 看截图：
   

结果：

过滤后，SUBTOTAL 公式会自动对表格中的彩色贮存格进行计数和求和 金额 柱。 看截图：

针对字体色彩对贮存格进行计数和求和

想要针对 Excel 中的字体色彩对贮存格进行计数或求和吗，我们将继续深入。 假定您有数据，如给定的萤幕截图所示，其中单元格包括红色、蓝色、橙色和黑色文字。 预设情况下，Excel 其实不容易做到这一点。 但别担心！ 在本节中，我们将向您展现一些简单的技能来做到这一点。

使用使用者定义内涵函数针对字体色彩对单元格进行计数和求和

若要对具有特定字体色彩的贮存格进行计数和求和，以下使用者定义内涵函数可以帮助您解决此任务。 请依照以下步骤进行：

第 1 步：打开 VBA 模块编辑器并复制代码

1. 媒体推荐 Alt + F11键 键打开 Microsoft Visual Basic for Applications 窗口。
2. 在打开的视窗中，按一下 插入 > 模块 创建一个新的空白模块。
3. 然后，将以下程式码复制并贴上到空白模组中。
   VBA程式码：针对字体色彩对贮存格进行计数和求和

   Function ProcessByFontColor(pRange1 As Range, pRange2 As Range, FunctionType As String) As Double
   'Updateby
   Application.Volatile
   Dim rng As Range
   Dim xTotal As Double
   Dim xCount As Double
   xTotal = 0
   xCount = 0
   For Each rng In pRange1
   If rng.Font.Color = pRange2.Font.Color Then
   If UCase(FunctionType) = "SUM" Then
   xTotal = xTotal + rng.Value
   ElseIf UCase(FunctionType) = "COUNT" Then
   xCount = xCount + 1
   End If
   End If
   Next
   If UCase(FunctionType) = "SUM" Then
   ProcessByFontColor = xTotal
   ElseIf UCase(FunctionType) = "COUNT" Then
   ProcessByFontColor = xCount
   Else
   ProcessByFontColor = CVErr(xlErrValue)
   End If
   End Function
   

步骤 2：建立公式以按字体色彩对贮存格进行计数和求和

贴上上述程式码后，关闭模组窗口，然后套用以下公式：

• 针对特定字体色彩对贮存格进行计数：
  将下面提供的公式复制或键入到所需的贮存格中以取得结果。 然后，向下拖曳填充手柄以取得其他结果。 看截图：
  

  =ProcessByFontColor($B$2:$E$12,G2, "COUNT")

  备注：在此公式中， G2 是具有您要匹配的特定字体色彩的参考单元格； $B$2:$E$12 是要计算 G2 色彩的贮存格数量的范围。

• 针对特定字体色彩对单元格求和：
  将下面提供的公式复制或键入到所需的贮存格中以取得结果。 然后，向下拖曳填充手柄以取得其他结果。 看截图：
  

  =ProcessByFontColor($B$2:$E$12,G2, "SUM")  

  备注：在此公式中， G2 是具有您要匹配的特定字体色彩的参考单元格； $B$2:$E$12 是要计算 G2 色彩的贮存格数量的范围。

透过简单的功能针对字体色彩对单元格进行计数和求和

希望针对字体色彩在 Excel 中轻鬆计算或求和贮存格值？ 投身于 Excel的tools's 按色彩计数 特徵！ 有了这个智慧工具，按特定字体色彩对单元格进行计数和求和变得轻而易举。 了解如何 库工具 可以改变您的 Excel 体验。

后 下载并安装 tools for Excel，首先，针对特定字体色彩选择要计数或求和贮存格的资料范围。 然后，点击 tools 加 > 按色彩计数 打开 按色彩计数 对话框。

在 按色彩计数 对话方块中，请指定操作：

1. 选择 标準格式 来自 上色方式 下拉列表;
2. 指定 字体 来自 计数类型 下拉列表，可以在对话框中预览每种字体色彩的统计结果；
3. 最后点击 生成报告 将计算结果汇出到新工作簿。

结果：

现在，您有一个新工作簿，显示基于字体色彩的详细统计资料。 看截图：

针对条件格式色彩对贮存格进行计数和求和

在 Excel 中，您通常可使用条件格式将特定色彩套用至符合特定条件的贮存格，使资料视觉化直觉。 但是，如果您需要对那些特殊格式的贮存格进行计数或求和怎幺办？ 虽然 Excel 没有为此提供直接的方法，但可以透过以下方法绕过此限制。

使用 VBA 程式码对条件格式的贮存格进行计数和求和

使用内建函数对 Excel 中的条件格式贮存格进行计数和求和其实不简单。 但是，您可使用 VBA 程式码完成此任务。 让我们来看看如何使用 VBA 来实现此目的：

第 1 步：打开 VBA 模块编辑器并复制代码

1. 媒体推荐 Alt + F11键 键打开 Microsoft Visual Basic for Applications 窗口。
2. 在打开的视窗中，按一下 插入 > 模块 创建一个新的空白模块。
3. 然后，将以下程式码复制并贴上到空白模组中。
   VBA代码：针对条件格式色彩对贮存格进行计数和求和

   Sub SumCountByConditionalFormat()
   'Updateby
   Dim sampleColor As Range
   Dim selectedRange As Range
   Dim cell As Range
   Dim countByColor As Long
   Dim sumByColor As Double
   Dim refColor As Long
   Set selectedRange = Application.InputBox("Select a range to evaluate:", _
   "tools for Excel", _
   Type:=8)
   If selectedRange Is Nothing Then Exit Sub
   Set sampleColor = Application.InputBox("Select a conditional formatting color:", _
   "tools for Excel", _
   Type:=8)
   If Not sampleColor Is Nothing Then
   refColor = sampleColor.Cells(1, 1).DisplayFormat.Interior.color
   For Each cell In selectedRange
   If cell.DisplayFormat.Interior.color = refColor Then
   countByColor = countByColor + 1
   sumByColor = sumByColor + cell.Value
   End If
   Next cell
   MsgBox "Count: " & countByColor & vbCrLf & _
   "Sum: " & sumByColor, _
   vbInformation, "Results based on Conditional Format Color"
   End If
   End Sub
   

第 2 步：履行此 VBA 程式码

1. 粘贴代码后，按 F5 键履行此程式码，会出现提示框，请针对条件格式选择要对贮存格进行计数和求和的资料范围。 然后，点击 OK，请参见屏幕截图：
   
2. 在另外一个提示方块中，选择要计数和求和的特定条件格式色彩，然后按一下 OK 按钮，请参见屏幕截图：
   

结果：

现在，结果（包括具有指定条件格式色彩的贮存格的计数和总和）将显示在弹出框中。 看截图：

使用智慧型功能对条件格式的贮存格进行计数和求和

如果您正在寻觅其他快捷简便的方法来对条件格式的贮存格进行计数和求和， Excel的tools 是您的首选解决方案。 它是 按色彩计数 只需点击几下便可解决此任务。 深入了解 tools 可以为您的工作流程带来的效力和精确度。

后 下载并安装 tools for Excel，首先，针对特定的条件格式色彩选择要对贮存格进行计数或求和的资料范围。 然后，点击 tools 加 > 按色彩计数 打开 按色彩计数 对话框。

在 按色彩计数 对话方块中，请指定操作：

1. 选择 条件格式 来自 上色方式 下拉列表;
2. 指定 背景 来自 计数类型 下拉列表，可以在对话框中预览每种条件格式色彩的统计结果；
3. 最后点击 生成报告 将计算结果汇出到新工作簿。

结果：

现在，您有一个新工作簿，显示基于条件格式色彩的详细统计资料。 看截图：

相干文章：