在EXCEL2010工作表中经常会遇到查找最大值的问题，例如要查找销售量中的最大值等，而且当查找的范围内含有多个相同的最大值时，为便于查看，可为查找到的最大值设置特殊的字体颜色等，以使其能够突出显示。下面讲述以下使用VBA代码实现将最大值突出显示的方法。
首先在VBA代码窗口中，新插入一个模块，并从中输出如下代码：
Sub 突出显示最大值()
Dim WorkRange As Range
Dim MaxVal As Double
Dim Num As Variant
If TypeName(Selection) <> "Range" Then '判断所选区域是否为Range对象
Exit Sub
End If
If Selection.Count = 1 Then '如果所选区域的单元格个数为1，则执行下一条语句
Set WorkRange = Cells '当选中单个单元格时，系统会自动选择整个工作表
Else
Set WorkRange = Selection
End If
MaxVal = Application.Max(WorkRange) '获取该选区的最大值
For Each Num In WorkRange
If Num.Value = MaxVal Then
Num.Font.ColorIndex = 3 '将最大值字体颜色设置为红色
End If
Next Num
End Sub
当返回EXCEL2010工作表，选中要查找的单元格区域，再运行该程序，即可将所选区域中的最大值以红色字体显示出来。执行该代码时，我建议选中要查找范围的单元格区域，这样便于代码的快速运行。如果选中单个单元格时系统自动选择整个工作表，当运行VBA代码时，系统会在整个EXCEL2010工作表中进行查找。