FormatConditions.AddAboveAverage

With Range("E1:E100").FormatConditions.AddAboveAverage
    .AboveBelow = xlAboveAverage
    With .Font
        .Bold = True
        .ColorIndex = 3
    End With
End With

运算符:

Name 描述
XlAboveAverage 高于平均水平
XlAboveStdDev 高于标准差
XlBelowAverage 低于平均值
XlBelowStdDev 低于标准差
XlEqualAboveAverage 等于高于平均水平
XlEqualBelowAverage 等于低于平均水平