开发工具---VB编辑器---插入模块，输入：

Sub HighlightMaxValue()
Dim selectedRange As Range
Dim maxValue As Double
Dim cell As Range
Dim hasData As Boolean

' 检查是否已选择范围
If TypeName(Selection) <> "Range" Then
    MsgBox "请先选择一个数据范围！", vbExclamation
    Exit Sub
End If

Set selectedRange = Selection

' 检查范围内是否有数值数据
hasData = False
For Each cell In selectedRange
    If IsNumeric(cell.Value) And cell.Value <> "" Then
        hasData = True
        Exit For
    End If
Next cell

If Not hasData Then
    MsgBox "选定的范围内没有找到数值数据！", vbExclamation
    Exit Sub
End If

' 查找最大值
maxValue = Application.WorksheetFunction.Max(selectedRange)

' 清除原有格式
selectedRange.Interior.ColorIndex = xlNone
selectedRange.Font.Bold = False

' 突出显示最大值
For Each cell In selectedRange
    If IsNumeric(cell.Value) And cell.Value = maxValue Then
        With cell.Interior
            .Color = RGB(255, 255, 0) ' 黄色背景
            .Pattern = xlSolid
        End With
        cell.Font.Bold = True
        cell.Font.Color = RGB(255, 0, 0) ' 红色字体
    End If
Next cell

' 显示结果信息
MsgBox "已突出显示最大值: " & maxValue, vbInformation

End Sub
开发工具---宏---找到刚才添加的---选项，添加快捷键