Excel VBA实战|新手也能会!自定义函数一键实现单元格颜色求和+计数(附完整代码)

这篇文章用VBA 自定义函数解决这个痛点，零基础也能学会，写完函数后，能像 SUM、AVERAGE 一样直接在单元格里调用，简单高效！

一、核心知识点

1. VBA 自定义函数（UDF）
   ：自己写的 Excel 函数，可在单元格直接使用，重复调用
2. 按颜色求和
   ：根据指定单元格的背景色，对目标区域数值求和
3. 按颜色计数
   ：统计目标区域中，与指定颜色一致的单元格数量

二、第一步：打开 VBA 编辑器（新手必看）

1. 打开你的 Excel 表格
2. 按下快捷键 Alt + F11，直接打开 VBA 编辑器
3. 右键左侧工作表名称 → 插入 → 模块
4. 右侧空白区域，就是我们写代码的地方

注意：保存文件时请选择 .xlsm 格式（启用宏的工作簿），否则 VBA 代码会丢失！

三、完整 VBA 代码：颜色求和 + 颜色计数

直接复制以下代码到新建的模块中，代码带详细注释，易懂易用：

' 自定义函数1：按单元格背景色 求和' 参数1：sum_range  要计算求和的区域（如A2:A100）' 参数2：color_cell 参照颜色的单元格（如B1，取它的背景色）' 用法：=ColorSum(A2:A100, B1)' ==============================================Function ColorSum(sum_range As Range, color_cell As Range)AsDoubleDim cell As Range          ' 循环单元格变量Dim targetColor AsLong' 存储参照单元格的颜色值Application.Volatile ' 自动刷新计算

' 获取参照单元格的背景色（标准填充色，不含条件格式）    targetColor = color_cell.Interior.Color' 遍历求和区域的每一个单元格For Each cell In sum_range' 判断：单元格是数值 + 颜色和参照色一致If IsNumeric(cell.Value)And cell.Interior.Color = targetColor Then            ColorSum = ColorSum + cell.Value  ' 累加数值End IfNext cellEnd Function' ==============================================' 自定义函数2：按单元格背景色 计数' 参数1：count_range 要统计数量的区域（如A2:A100）' 参数2：color_cell  参照颜色的单元格（如B1）' 用法：=ColorCount(A2:A100, B1)' ==============================================Function ColorCount(count_range As Range, color_cell As Range)AsLongDim cell As RangeDim targetColor AsLongApplication.Volatile ' 自动刷新计算    targetColor = color_cell.Interior.ColorFor Each cell In count_range' 只判断颜色一致，不判断数值If cell.Interior.Color = targetColor Then            ColorCount = ColorCount +1End IfNext cellEnd Function

四、第二步：在 Excel 单元格中直接使用（超简单）

代码写完后，关闭 VBA 编辑器，回到 Excel 表格，直接像普通函数一样调用：

1. 按颜色求和

=ColorSum(求和区域, 颜色参照单元格)

示例：

• 对 A1:A8 区域中，和 D2 颜色一样的单元格求和
• 公式：E2=ColorSum(A1:A8, D2)

2. 按颜色计数

=ColorCount(计数区域, 颜色参照单元格)

示例：

• 统计 A1:A8 区域中，和 D2 颜色一样的单元格数量
• 公式：F2=ColorCount(A1:A8, D2)

实际演示效果

表格

五、VBA 自定义函数（UDF）核心用法讲解

1. 什么是自定义函数（UDF）？

• 全称：User Defined Function（用户自定义函数）
• 作用：扩展 Excel 自带函数，实现自带函数做不到的功能
• 特点：
• 写一次，全表可用
• 单元格直接调用，和 SUM/VLOOKUP 用法一致
• 支持自动重算（修改颜色 / 数值后自动更新）

2. 自定义函数标准结构

Function 函数名(参数1 As 类型, 参数2 As 类型) As 返回值类型' 代码逻辑EndFunction

• Function
  ：声明自定义函数
• As Double/Long
  ：指定函数返回值类型（数值 / 整数）
• 函数名：自己定义（建议见名知意，如 ColorSum）

3. 关键代码解释

1. color_cell.Interior.Color
   ：获取单元格背景色的数字代码（Excel 用数字代表颜色）
2. For Each cell In 区域
   ：循环遍历每一个单元格

3. Application.Volatile

4. ： 自动刷新计算

5. IsNumeric(cell.Value)
   ：判断单元格内容是不是数字（避免文本干扰求和）
6. 函数最后会自动把计算结果返回给单元格

六、常见问题 & 解决方法