三类下3个度量字段共6列的差异化阈值着色需求（附参考样例）

针对你3个度量字段分属3类、共6列数据需单独设置阈值颜色编码的需求，提供两种实用实现方式：

一、手动条件格式配置（适合单次操作） #

• 选中目标列的数据区域（跳过表头，比如A2:A100）
• 点击开始选项卡 → 条件格式 → 新建规则
• 按需选择规则类型：
  • 单一阈值：选*"只为包含以下内容的单元格设置格式"*，匹配你需要的条件（如"单元格值 > 80"），点击格式设置对应填充色
  • 多区间阈值：选*"使用公式确定要设置格式的单元格"*，输入区间判断公式（如针对A列的=A2<50），设置对应颜色后，重复添加规则覆盖所有区间
• 为每一列单独重复上述步骤，配置对应阈值与颜色

二、VBA批量设置（适合重复/大量列操作） #

如果需要快速批量配置，可使用以下VBA脚本（需根据你附件中的实际阈值、列位、颜色调整参数）：

Sub SetCustomConditionalFormatting()
    ' 定义每列的阈值规则：列标识, 条件1, 颜色1, 条件2, 颜色2...
    Dim formatRules As Variant
    formatRules = Array( _
        Array("A", "<50", RGB(255, 0, 0), ">=50", RGB(255, 255, 0), ">80", RGB(0, 255, 0)), _
        Array("B", "<40", RGB(255, 100, 100), ">=40", RGB(255, 255, 150), ">70", RGB(100, 255, 100)), _
        Array("C", "<60", RGB(255, 150, 150), ">=60", RGB(255, 255, 200), ">90", RGB(150, 255, 150)), _
        Array("D", "<30", RGB(255, 50, 50), ">=30", RGB(255, 255, 100), ">60", RGB(50, 255, 50)), _
        Array("E", "<70", RGB(255, 200, 200), ">=70", RGB(255, 255, 250), ">95", RGB(200, 255, 200)), _
        Array("F", "<20", RGB(255, 0, 0), ">=20", RGB(255, 255, 0), ">50", RGB(0, 255, 0)) _
    )
    
    Dim i As Integer, j As Integer
    Dim col As String, rng As Range
    
    For i = LBound(formatRules) To UBound(formatRules)
        col = formatRules(i)(0)
        Set rng = ThisWorkbook.ActiveSheet.Range(col & "2:" & col & Cells(Rows.Count, col).End(xlUp).Row)
        
        ' 清除原有条件格式
        rng.FormatConditions.Delete
        
        ' 批量添加规则
        For j = 1 To UBound(formatRules(i)) Step 2
            With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:=formatRules(i)(j))
                .Interior.Color = formatRules(i)(j + 1)
            End With
        Next j
    Next i
End Sub

使用步骤：

1. 按Alt+F11打开VBA编辑器
2. 插入模块，粘贴上述代码
3. 根据附件中的阈值、颜色修改formatRules数组参数
4. 运行宏完成批量配置

提示：RGB颜色值可通过Excel颜色选择器获取，也可直接使用内置常量（如vbRed、vbYellow）

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