如何仅在新产品价格列按行独立设置Excel VBA条件格式

原代码的问题是复制整行格式，当你只在首行新价格列设置条件格式时，复制后的条件格式引用会变成全局（比如首行用了绝对行号），导致所有行都用首行的数据判断。下面提供两种可行方案：

方案1：修改宏实现新价格列格式复制+行相对引用修正 #

这个方案基于你原本的“首行设格式再复制”的思路，只针对新价格列操作，并修正条件格式的行引用：

Sub NewCF_OnlyNewPrice()
    Application.ScreenUpdating = False
    Dim dataRange As Range
    Dim sourceNewPriceCells As Range
    Dim targetRow As Range
    Dim sourceCell As Range
    Dim targetCell As Range
    
    ' 替换成你的数据区域（不含首行格式行）
    Set dataRange = Range("B4:G8")
    ' 替换成首行的新价格列单元格（比如3家公司的新价格是C、E、G列）
    Set sourceNewPriceCells = Range("C3,E3,G3")
    
    For Each targetRow In dataRange.Rows
        ' 逐个复制新价格列的格式到当前行对应位置
        For Each sourceCell In sourceNewPriceCells
            Set targetCell = targetRow.Cells(1, sourceCell.Column - dataRange.Column + 1)
            sourceCell.Copy
            targetCell.PasteSpecial xlPasteFormats
            
            ' 把条件格式里的首行行号替换成当前行号，实现每行独立判断
            Dim cf As FormatCondition
            For Each cf In targetCell.FormatConditions
                cf.Formula1 = Replace(cf.Formula1, "3", targetRow.Row)
            Next cf
        Next sourceCell
    Next targetRow
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

使用说明： #

• 先手动给首行的新价格列设置好需要的条件格式，注意公式里用相对行号（比如判断“是否为当前行最大值”就写=C3=MAX($C3,$E3,$G3)，不要加$在行号上）。
• 替换代码中的dataRange和sourceNewPriceCells为你实际的单元格范围。

方案2：直接批量设置新价格列的条件格式（更高效） #

如果不想依赖手动设置首行格式，可以直接用代码给所有新价格列添加每行独立的条件格式，示例如下（以“标记每行新价格的最大值和最小值”为例）：

Sub SetNewPriceCF_Directly()
    Application.ScreenUpdating = False
    Dim newPriceCells As Range
    
    ' 替换成你所有新价格列的单元格范围（比如C4:C8、E4:E8、G4:G8）
    Set newPriceCells = Range("C4:C8,E4:E8,G4:G8")
    
    ' 清除原有条件格式
    newPriceCells.FormatConditions.Delete
    
    ' 添加条件：标记当前行新价格的最大值
    With newPriceCells.FormatConditions.Add(Type:=xlExpression, Formula1:= _
        "=C4=MAX($C4,$E4,$G4)") ' 公式中的C4会自动适配当前单元格，$C4是行相对、列绝对引用
        .Interior.Color = RGB(146, 208, 80) ' 自定义绿色，可修改
    End With
    
    ' 添加条件：标记当前行新价格的最小值
    With newPriceCells.FormatConditions.Add(Type:=xlExpression, Formula1:= _
        "=C4=MIN($C4,$E4,$G4)")
        .Interior.Color = RGB(255, 199, 206) ' 自定义红色，可修改
    End With
    
    Application.ScreenUpdating = True
End Sub

关键注意点： #

• 公式中的行号不要加$（比如用$C4而不是$C$4），这样Excel会自动将公式应用到每行时，行号跟随当前行变化，实现每行独立判断。
• 旧价格列即使隐藏，也不会影响新价格列的条件格式计算。

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