VBA平均格式规则AddAboveAverage

Sub AboveAverage()

    Range("a1").Value = "Name"
    Range("b1").Value = "Value"
    Range("a2").Value = "Channel-1"
    Range("a2").AutoFill Destination:=Range("a2:a10"), Type:=xlFillDefault    '自动填充
    Range("b2:b10").FormulaArray = "=int(rand()*100)"  '数组公式
    Range("b2:b10").Select
    
    Selection.FormatConditions.AddAboveAverage
    Selection.FormatConditions(1).SetFirstPriority
'    Selection.FormatConditions(1).AboveBelow = xlAboveAverage  '高于平均值
    Selection.FormatConditions(1).AboveBelow = xlBelowAverage   '低于平均值
    With Selection.FormatConditions(1).Font
        .Bold = True
'3-红色，4-浅绿色,5-蓝色，6-黄色,7-洋红，8-浅蓝
'9-褐色,10-深绿色,11-墨汁蓝
        .ColorIndex = 5
    End With
    
    Range("b2").Select
    
    '删除指定单元格的条件格式
    Range("b2:b10").FormatConditions.Delete
    
End Sub