如何基于每列自身值为多列应用红-白-绿颜色刻度条件格式

我拥有的数据格式如下：

我需要为每列应用红-白-绿颜色刻度条件格式。我一共有近250列，但当我选中多列进行设置时，系统会基于所有选中列的整体数值完成着色，而我希望每列仅根据自身列内的数值进行着色。

选中多列设置后的实际效果如下：

我想要实现的预期效果如下：

请问如何为所有列应用基于各自列自身数值的条件格式规则？

方法1：手动单列设置（仅适合列数少的场景） #

• 选中单个目标列的所有数据区域
• 点击「开始」选项卡→「条件格式」→「色阶」→选择红-白-绿色阶即可，单列设置默认会以当前列的极值作为色阶计算基准。
  如果列数超过10列，手动操作效率极低，推荐用下方VBA批量处理方案。

方法2：VBA批量处理（适配250列的大数量场景） #

运行下面的宏代码，可一键给所有选中区域的每一列单独应用红-白-绿色阶条件格式：

Sub 单列单独应用色阶()
    Dim targetRng As Range, colRng As Range
    ' 读取当前选中的所有数据区域
    Set targetRng = Selection
    
    ' 遍历每一列单独设置规则
    For Each colRng In targetRng.Columns
        ' 清除当前列原有条件格式，避免冲突
        colRng.FormatConditions.Delete
        
        ' 添加三色阶规则
        Dim cf As ColorScale
        Set cf = colRng.FormatConditions.AddColorScale(ColorScaleType:=3)
        
        ' 最小值对应红色，可修改RGB参数调整颜色
        With cf.ColorScaleCriteria(1)
            .Type = xlConditionValueLowestValue
            .FormatColor.Color = RGB(255, 99, 71)
        End With
        
        ' 中间值对应白色，默认取列内数值50百分位
        With cf.ColorScaleCriteria(2)
            .Type = xlConditionValuePercentile
            .Value = 50
            .FormatColor.Color = RGB(255, 255, 255)
        End With
        
        ' 最大值对应绿色
        With cf.ColorScaleCriteria(3)
            .Type = xlConditionValueHighestValue
            .FormatColor.Color = RGB(144, 238, 144)
        End With
    Next colRng
End Sub

使用步骤：

1. 选中你需要设置条件格式的所有数据列区域
2. 按Alt+F11打开VBA编辑器，右键当前工作簿→插入→模块，把上述代码粘贴到模块中
3. 按F5运行宏即可，运行完成后所有列都会基于自身列内的数值生成色阶。

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