如何用VBA实现含纯数字或字母前缀的单元格数值自动加1

你原有修改版代码依赖空格作为分隔符拆分前缀与数字，因此仅支持带空格的格式，改用倒序遍历拆分的逻辑无需依赖分隔符，可同时兼容纯数字、字母前缀+无空格数字的场景，还可保留数字前导零：

Sub IncreaseCellValue()
    Dim originalVal As String
    Dim prefix As String
    Dim numPart As String
    Dim i As Integer
    
    ' 读取A1单元格内容并去除首尾空格
    originalVal = Trim(Range("A1").Value)
    
    ' 从字符串末尾倒序查找第一个非数字字符的位置
    For i = Len(originalVal) To 1 Step -1
        If Not IsNumeric(Mid(originalVal, i, 1)) Then
            Exit For
        End If
    Next i
    
    ' 拆分前缀和数字部分
    If i = 0 Then
        ' 单元格内容全为数字的情况
        numPart = originalVal
        prefix = ""
    Else
        prefix = Left(originalVal, i)
        numPart = Mid(originalVal, i + 1)
    End If
    
    ' 数字部分加1后拼接，保留原有数字的位数（避免丢失前导零）
    Range("A1").Value = prefix & Format(CStr(CLng(numPart) + 1), String(Len(numPart), "0"))
End Sub

适配特性 #

• 支持纯数字格式5766662、单字母前缀无空格格式W5766662
• 扩展兼容多字母前缀格式如INV2024001、带空格的前缀格式如W 5766662
• 自动保留数字前导零，例如W000123递增后输出为W000124

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