7.Excel vba开发-突出显示范围内的最大值

1.需求：突出显示范围内的最大值

2.代码：

Sub highlightMaxValue()
    Dim rng As Range
    For Each rng In Selection
        If rng = WorksheetFunction.Max(Selection) Then
            'rng.Style = "Good"
            rng.Interior.ColorIndex = 3
        End If
    Next rng
End Sub

3.效果