按对应范围/条件为特定单元格应用热力图式条件格式

• 核心逻辑：借助辅助区域的TRUE标记定位目标单元格，整合识别逻辑与热力图配色规则，实现批量自动着色
• 整合后的完整VBA代码：

Sub ApplyRBYHeatmapToMatches()
    Dim ws As Worksheet
    Dim dataRange As Range, helperRange As Range
    Dim rowNum As Long, colNum As Long
    Dim targetCell As Range
    Dim minVal As Double, maxVal As Double
    
    ' 替换为你的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 数据区域：对应条件中的BJ$3:BP$3表头所在的数据行范围
    Set dataRange = ws.Range("BJ4:BP1101")
    ' 辅助区域：对应你的匹配结果标记区域
    Set helperRange = ws.Range("BQ4:BW1101")
    
    ' 获取数据区域的最值，用于计算热力图梯度比例
    minVal = Application.WorksheetFunction.Min(dataRange)
    maxVal = Application.WorksheetFunction.Max(dataRange)
    
    ' 逐行逐列遍历匹配
    For rowNum = 1 To dataRange.Rows.Count
        For colNum = 1 To dataRange.Columns.Count
            If helperRange.Cells(rowNum, colNum).Value = True Then
                Set targetCell = dataRange.Cells(rowNum, colNum)
                ' 计算当前值在梯度中的占比
                Dim colorRatio As Double
                colorRatio = (targetCell.Value - minVal) / (maxVal - minVal)
                
                ' 应用红-黄-蓝梯度配色
                If colorRatio <= 0.5 Then
                    ' 红到黄过渡：比例0-0.5对应RGB(255, 255*2*ratio, 0)
                    targetCell.Interior.Color = RGB(255, 255 * 2 * colorRatio, 0)
                Else
                    ' 黄到蓝过渡：比例0.5-1对应RGB(255*2*(1-ratio), 255, 255*2*(ratio-0.5))
                    targetCell.Interior.Color = RGB(255 * 2 * (1 - colorRatio), 255, 255 * 2 * (colorRatio - 0.5))
                End If
            End If
        Next colNum
    Next rowNum
End Sub

• 可选调整（若需用Excel内置条件格式热力图）：
  如果偏好Excel原生的条件格式热力图样式，可将代码中的颜色计算部分替换为以下片段：

' 清除目标单元格原有条件格式，添加内置三色热力图
targetCell.FormatConditions.Delete
targetCell.FormatConditions.AddColorScale ColorScaleType:=3
With targetCell.FormatConditions(1)
    .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, 0, 255)
End With

• 使用提示：
  1. 先根据你的实际表格修改代码中的工作表名称、数据区域和辅助区域范围
  2. 若需每日数据更新时自动执行，可将代码绑定到工作表的Worksheet_Change事件
  3. 确保辅助区域的公式正确对应每行$I4+0.5与表头的匹配逻辑

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