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 等於低於平均水平