如何将SumCellsByColor VBA函数整合进Excel现有公式实现按颜色汇总

一、将SumCellsByColor整合进现有LAMBDA公式 #

假设你现有按国家汇总的核心逻辑是通过MAP遍历国家列表、TEXTJOIN匹配对应记录，现在把普通求和替换为按颜色求和的SumCellsByColor函数，同时绑定国家筛选与颜色匹配：

适配B3/C3结构的示例公式 #

=HSTACK(
    表A[国家],
    MAP(表A[国家], LAMBDA(country,
        SumCellsByColor(
            FILTER(表B[行驶公里数], 表B[国家]=country),
            B12
        )
    )),
    MAP(表A[国家], LAMBDA(country,
        TEXTJOIN(", ", TRUE, FILTER(表B[CW信息], 表B[国家]=country))
    ))
)

关键说明 #

• FILTER(表B[行驶公里数], 表B[国家]=country)：先筛选出当前国家对应的所有公里数单元格区域
• SumCellsByColor(..., B12)：将筛选后的区域传入VBA函数，以B12的颜色为匹配标准，仅求和颜色一致的单元格
• 原有TEXTJOIN汇总CW信息的逻辑完全保留，不影响原有功能

二、添加绿/蓝色切换的复选框 #

步骤1：插入复选框 #

1. 点击「开发工具」选项卡 → 「插入」→ 选择「表单控件」中的「复选框（窗体控件）」
2. 在工作表空白处绘制复选框，修改标题为「切换为绿色汇总」

步骤2：绑定复选框到单元格 #

右键复选框 → 「设置控件格式」→ 「控制」选项卡 → 「单元格链接」选择空白单元格（比如D12），点击确定

步骤3：修改公式实现颜色切换 #

将公式里的B12替换为逻辑判断，根据D12的值切换参考颜色单元格（假设绿色参考单元格为C12）：

=HSTACK(
    表A[国家],
    MAP(表A[国家], LAMBDA(country,
        SumCellsByColor(
            FILTER(表B[行驶公里数], 表B[国家]=country),
            IF(D12=TRUE, C12, B12)
        )
    )),
    MAP(表A[国家], LAMBDA(country,
        TEXTJOIN(", ", TRUE, FILTER(表B[CW信息], 表B[国家]=country))
    ))
)

效果 #

勾选复选框时，汇总与C12（绿色）匹配的单元格；取消勾选时，汇总与B12（蓝色）匹配的单元格，原有功能不受影响。

内容的提问来源于stack exchange，提问作者Lixxy