在excel vba中查找字母数字之间的前2个最大值

Sub FindMaxValues()
    Dim cellValue As String
    Dim inputRange As Range
    Dim max1 As Integer
    Dim max2 As Integer
    
    ' 可以使用下面的代码指定要检查的单元格范围
    ' Set inputRange = Range("A1:A10")
    
    ' 使用InputBox提示用户输入单元格地址
    On Error Resume Next
    Set inputRange = Application.InputBox("请输入要检查的单元格范围:", Type:=8)
    On Error GoTo 0
    
    ' 检查是否成功选择了单元格范围
    If inputRange Is Nothing Then
        MsgBox "未选择有效的单元格范围。", vbExclamation
        Exit Sub
    End If
    
    ' 遍历每个单元格，并查找前两个最大值
    For Each cell In inputRange
        cellValue = cell.Value
        
        ' 检查字符串中的字符
        For i = 1 To Len(cellValue)
            ' 获取字符的ASCII码
            charCode = Asc(Mid(cellValue, i, 1))
            
            ' 检查字符是否为数字或字母
            If IsNumeric(Mid(cellValue, i, 1)) Or (charCode >= 65 And charCode <= 90) Or (charCode >= 97 And charCode <= 122) Then
                ' 更新最大值
                If charCode > max1 Then
                    max2 = max1
                    max1 = charCode
                ElseIf charCode > max2 And charCode < max1 Then
                    max2 = charCode
                End If
            End If
        Next i
        
        ' 显示结果
        MsgBox "前两个最大值为: " & Chr(max1) & " 和 " & Chr(max2), vbInformation
    Next cell
End Sub