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

1
2
3
4
5
6
7
8
9
10

3.效果