求助：Excel条件格式高亮高于平均值5%的单元格

你的核心问题是条件格式的公式逻辑错误，同时代码中依赖Selection会导致不可靠的结果。以下是修正后的完整代码：

Sub HighlightAboveAvg5Percent()
    Dim targetRange As Range
    Dim avgCell As Range
    Dim ws As Worksheet
    
    ' 指定工作表和目标区域
    Set ws = ThisWorkbook.Sheets("Summary")
    Set targetRange = ws.Range("F5:AX5")
    Set avgCell = ws.Range("AZ5")
    
    ' 清除原有条件格式（可选，避免重复添加）
    targetRange.FormatConditions.Delete
    
    ' 添加新的条件格式
    With targetRange.FormatConditions.Add(Type:=xlExpression, Formula1:="=" & targetRange.Cells(1).Address(False, False) & ">" & avgCell.Address(True, True) & "*1.05")
        .SetFirstPriority
        ' 设置填充格式
        With .Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent2
            .TintAndShade = 0.599963377788629
        End With
        .StopIfTrue = False
    End With
End Sub

关键修正点： #

• 公式逻辑修正：正确的判断应该是单元格值 > 平均值 × 1.05，你之前写的AZ5>5%是判断平均值本身是否大于5%，完全不符合需求。
• 避免使用Selection：直接通过对象引用操作目标区域，代码更稳定，不会因当前选中区域变化而出错。
• 动态生成公式地址：用Address方法自动生成单元格引用，确保公式在区域内正确应用，同时锁定平均值单元格的行和列，避免相对引用偏移。
• 清除原有条件格式：可选步骤，防止重复添加条件格式导致规则冲突。

宏录制版本的错误说明： #

你录制的宏中，Formula1:="=AZ5>5%"同样存在逻辑错误。若使用xlCellValue类型搭配xlGreater，Formula1应直接填写比较值，正确写法为Formula1:="=" & avgCell.Address(True, True) & "*1.05"，但更推荐用xlExpression类型实现复杂逻辑。

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