请求协助：修复Excel VBA基于USD标识的红黄绿色阶条件格式代码

原代码存在以下核心问题导致运行失败：

• 目标区域引用逻辑错误：初始rng设为K5:O5，后续偏移计算会导致行号异常
• 条件格式对象引用方式错误：FormatConditions(rng.Offset(...))属于无效的索引调用
• 遗漏中间色阶的黄色配置：仅定义红、绿两色，未完成三色阶的完整设置

以下是修复后的完整可运行代码：

Sub ApplyColorScale()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim targetRowRange As Range
    Dim cfColorScale As FormatCondition
    
    ' 指定目标工作表，替换为你的实际工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取J列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "J").End(xlUp).Row
    
    ' 遍历J2至J列最后一行的单元格
    For Each cell In ws.Range("J2:J" & lastRow)
        ' 检查单元格值是否为USD（如需忽略大小写，可改为UCase(cell.Value) = "USD"）
        If cell.Value = "USD" Then
            ' 定位当前行的K-O列区域
            Set targetRowRange = ws.Range("K" & cell.Row & ":O" & cell.Row)
            
            ' 清除该区域已有的条件格式，避免重复叠加
            targetRowRange.FormatConditions.Delete
            
            ' 添加三色阶条件格式并保存对象引用
            Set cfColorScale = targetRowRange.FormatConditions.AddColorScale(ColorScaleType:=3)
            
            ' 配置最低值对应的红色
            With cfColorScale.ColorScaleCriteria(1)
                .Type = xlConditionValueLowestValue
                .FormatColor.Color = RGB(255, 0, 0)
            End With
            
            ' 配置50百分位对应的黄色
            With cfColorScale.ColorScaleCriteria(2)
                .Type = xlConditionValuePercentile
                .Value = 50
                .FormatColor.Color = RGB(255, 255, 0)
            End With
            
            ' 配置最高值对应的绿色
            With cfColorScale.ColorScaleCriteria(3)
                .Type = xlConditionValueHighestValue
                .FormatColor.Color = RGB(0, 255, 0)
            End With
        End If
    Next cell
End Sub

关键修改说明： #

• 直接通过行号定位目标区域：ws.Range("K" & cell.Row & ":O" & cell.Row)，彻底避免偏移计算错误
• 使用对象变量cfColorScale保存新增的条件格式，简化属性配置逻辑，杜绝无效引用
• 新增targetRowRange.FormatConditions.Delete，清除旧条件格式防止重复叠加
• 补充50百分位的黄色配置，完善三色阶的完整视觉效果
• 保留大小写敏感判断，如需忽略大小写可调整为UCase(cell.Value) = "USD"

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