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 3.效果