Excel VBA 改造原有Evaluate代码提取字母数字混合串前两大最大值

• 原有代码的核心逻辑是通过COUNTIF统计区域内每个值的重复出现次数，定位出现频次最高的重复项，和“按字符串前缀数值大小取前两大值”的需求完全不匹配，结果不符合预期是必然的
• 你当前的数据源有明确特征：字母后缀完全固定、仅字符串开头的数字位会变化，不需要依赖复杂的字符串解析、字典序排序，只要提取每个串的前置数字做大小比对就能完成需求

分两个适配场景：一个是当前4个独立字符串变量的场景，一个是之前把数据存在工作表区域的场景。

场景1：数据存储在4个独立字符串变量中 #

因为数字固定在字符串开头，直接用VBA自带的Val()函数就能无成本提取前置数字——这个函数会从字符串首字符开始连续读取数字，碰到第一个非数字字符就停止，完美适配固定后缀的字符串格式。
不需要反复排序全量数据，单次遍历就能记录最大、次大值的位置，运行效率最高：

Sub GetTop2FromVars()
    ' 替换为你实际的4个字符串变量值
    Dim strArr(0 To 3) As String
    strArr(0) = "2FB"
    strArr(1) = "4CB"
    strArr(2) = "0FW"
    strArr(3) = "4CW"
    
    ' 初始化最大值、次大值的存储变量
    Dim max1Str As String, max1Val As Long
    Dim max2Str As String, max2Val As Long
    max1Val = -1
    max2Val = -1
    
    Dim i As Long, curVal As Long
    For i = 0 To UBound(strArr)
        ' 提取当前字符串的前缀数字
        curVal = Val(strArr(i))
        ' 大于当前最大值时，同步更新最大、次大值记录
        If curVal > max1Val Then
            max2Val = max1Val
            max2Str = max1Str
            max1Val = curVal
            max1Str = strArr(i)
        ' 大于当前次大值时，仅更新次大值记录
        ElseIf curVal > max2Val Then
            max2Val = curVal
            max2Str = strArr(i)
        End If
    Next i
    
    ' 输出验证结果：4CB、4CW
    Debug.Print "第一大值：" & max1Str
    Debug.Print "第二大值：" & max2Str
End Sub

场景2：数据存储在原工作表区域rng中 #

完全弃用原有嵌套Evaluate+COUNTIF的公式逻辑，直接遍历区域内所有单元格，复用上面的前缀数字提取逻辑，比原有公式的运行效率更高，也不会出现统计逻辑偏差：

Sub GetTop2FromRange(rng As Range)
    Dim cell As Range
    Dim max1Str As String, max1Val As Long
    Dim max2Str As String, max2Val As Long
    max1Val = -1
    max2Val = -1
    
    For Each cell In rng
        If Len(cell.Value) > 0 Then
            curVal = Val(cell.Value)
            If curVal > max1Val Then
                max2Val = max1Val
                max2Str = max1Str
                max1Val = curVal
                max1Str = cell.Value
            ElseIf curVal > max2Val Then
                max2Val = curVal
                max2Str = cell.Value
            End If
        End If
    Next cell
    
    ' 结果可直接写入工作表对应位置
    cell.Offset(0, 1).Value = "第一大值：" & max1Str
    cell.Offset(0, 2).Value = "第二大值：" & max2Str
End Sub

• 上述Val()提取逻辑仅适配数字全位于字符串最前端的场景，如果后续字符串格式变化（比如中间出现数字），再调整数字提取的判断逻辑即可
• 原有代码的重复值统计逻辑适合用来找区域内的高频重复项，不适合做大小排序类的需求，不要直接复用这段嵌套Evaluate的代码

内容的提问来源于stack exchange，提问作者bvsnkiran