如何在Excel中批量为每列独立应用三色刻度条件格式？

方法1：Excel原生条件格式批量设置技巧 #

1. 选中所有需要应用格式的数据列（若表头无需格式，仅选中数据区域即可）
2. 打开「开始」选项卡 → 「条件格式」→ 「色阶」→ 选择默认的三色刻度样式
3. 点击「条件格式」→ 「管理规则」，选中刚添加的三色刻度规则，点击「编辑规则」：
   • 将最小值颜色改为红色，最大值颜色改为绿色，中间值保留黄色
   • 关键设置：在「基于各自值设置所有单元格的格式」区域，将**「范围」选择为「当前列」**（默认是整个选中区域，改后会按每列独立计算极值）
4. 添加Top1标记规则：
   • 保持选中所有数据列，再次打开「条件格式」→ 「项目选取规则」→ 「值最大的1项」
   • 在弹窗中设置格式为蓝色（填充或字体颜色按需选择），同样编辑规则确认「范围」为「当前列」

方法2：VBA宏一键批量处理（适合大量列场景） #

如果列数较多，手动设置效率低，可通过宏快速完成：

Sub ApplyColumnConditionalFormatting()
    Dim ws As Worksheet
    Dim rng As Range
    Dim col As Range
    
    Set ws = ActiveSheet ' 可改为指定工作表，比如Sheets("数据报表")
    Set rng = ws.UsedRange ' 也可指定具体区域，比如ws.Range("B2:Y1000")
    
    ' 清除原有条件格式（可选，避免规则冲突）
    rng.FormatConditions.Delete
    
    ' 遍历每一列设置格式
    For Each col In rng.Columns
        ' 应用三色刻度：最低值红、中间值黄、最高值绿
        With col.FormatConditions.AddColorScale(ColorScaleType:=3)
            .ColorScaleCriteria(1).Type = xlConditionValueLowestValue
            .ColorScaleCriteria(1).FormatColor.Color = RGB(255, 0, 0)
            .ColorScaleCriteria(2).Type = xlConditionValuePercentile
            .ColorScaleCriteria(2).Value = 50
            .ColorScaleCriteria(2).FormatColor.Color = RGB(255, 255, 0)
            .ColorScaleCriteria(3).Type = xlConditionValueHighestValue
            .ColorScaleCriteria(3).FormatColor.Color = RGB(0, 255, 0)
        End With
        
        ' 标记每列Top1值为蓝色填充
        With col.FormatConditions.AddTop10
            .TopBottom = xlTop10Top
            .Rank = 1
            .Percent = False
            .Interior.Color = RGB(0, 0, 255) ' 若要设置字体蓝色，替换为.Font.Color = RGB(0,0,255)
        End With
    Next col
End Sub

使用步骤：

• 按下Alt+F11打开VBA编辑器
• 右键当前工作表 → 插入 → 模块，粘贴上述代码
• 调整ws和rng为你的目标工作表和数据区域
• 点击运行按钮执行宏

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