如何优雅提取Excel Range中字符串的数字部分并传入最大值查找函数？

不用循环，直接利用Excel内置函数的数组处理能力，就能在不修改单元格显示内容的前提下提取数字部分并计算最大值，代码简洁高效：

Public Function GetNewID() As Long
    Dim idRange As Range
    Set idRange = shList.Range("A2").CurrentRegion.Columns(1)
    
    ' 提取所有ID的数字部分并求最大值
    GetNewID = 1 + WorksheetFunction.Max( _
        WorksheetFunction.Index( _
            WorksheetFunction.Mid(idRange, 4, Len(idRange)), _
            0, 1 _
        ) _
    )
End Function

代码说明： #

• Mid(idRange, 4, Len(idRange))：针对整个A列数据区域，跳过前3个固定字符"ID-"，提取从第4位开始的所有字符（也就是数字部分）
• Index(..., 0, 1)：把Mid返回的二维数组转换为一维数组，让Max函数可以直接处理
• Max(...)：计算所有提取出的数字的最大值，加1后得到新的ID数值

补充错误处理（应对空数据场景）： #

如果数据区域为空（比如刚新建的表格），上面的代码会报错，加上简单的错误处理就能兼容：

Public Function GetNewID() As Long
    Dim idRange As Range, maxNum As Long
    Set idRange = shList.Range("A2").CurrentRegion.Columns(1)
    
    On Error Resume Next
    maxNum = WorksheetFunction.Max( _
        WorksheetFunction.Index( _
            WorksheetFunction.Mid(idRange, 4, Len(idRange)), _
            0, 1 _
        ) _
    )
    On Error GoTo 0
    
    ' 无数据时默认返回1，否则返回最大值+1
    GetNewID = IIf(maxNum = 0, 1, maxNum + 1)
End Function

这个方案的优势：

• 全程不改动单元格内容，完美保留"ID-XXX"显示格式，不影响列表框等组件调用
• 依赖Excel原生函数的数组运算，比循环遍历单元格效率更高，数据量大时差距明显
• 代码简洁易读，后期维护成本低

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