根据平均值修改单元格颜色

 

根据平均值修改单元格颜色是个很实用的小程序，将平均值的范围外延，可以将众数、极值等多种数据分布的特征值用特殊颜色、边框等标注。

 

Sub aa()
    Dim nAvg As Long, I As Long
   
    '求平均值，可以定义求平均的单元格范围
    ThisWorkbook.Worksheets("sheet1").Range("a65536").Formula = "=average(a1:a100)"
    nAvg = ThisWorkbook.Worksheets("sheet1").Range("a65536").Value
   
    '定义单元格颜色的范围，I代表行
    For I = 1 To 100
        If ThisWorkbook.Worksheets("sheet1").Cells(I, 1).Value > nAvg Then
            ThisWorkbook.Worksheets("sheet1").Cells(I, 1).Interior.ColorIndex = 3
           
        End If
    Next
End Sub