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

2.代码：

Sub highlightMaxValue()
    Dim rng As Range
    For Each rng In Selection
        If rng = WorksheetFunction.Min(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
11

3.效果