VBA提取工单编码代码报错、结果带逗号、Overhead赋值失败求助

问题根因说明 #

• 问题1（小写首字符报错/不识别）：VBA默认字符串比较区分大小写，你当前的判断条件仅匹配大写的G/S/M/P，小写开头的合法工单不会进入判断分支；此外如果进入分支后文本没有空格，InStr返回0，Left函数参数为-1会直接抛出运行时错误。
• 问题2（提取结果带末尾逗号）：你直接取第一个空格前的全部内容，示例3中逗号在空格之前，会被一同截取。
• 问题3（A4 paper不返回Overhead）：你的If嵌套结构错误，Overhead赋值的Else分支仅对应「首字符是G/S/M/P但2-5位非数字」的场景，首字符根本不属于这四个的情况会直接跳过整个第一层If块，不会执行该Else逻辑；且后续独立的P开头判断块的Else为空，没有兜底赋值逻辑。

修复后代码 #

Sub FindCode()
    Dim inputStr As String
    Dim firstChar As String
    Dim spacePos As Integer
    Dim result As String
    
    inputStr = Trim(Range("A2").Value)
    Range("E2").Value = "Overhead" ' 先默认赋值Overhead，匹配到规则再覆盖
    
    ' 空值直接返回
    If inputStr = "" Then Exit Sub
    
    ' 首字符转大写判断，不区分大小写
    firstChar = UCase(Left(inputStr, 1))
    If firstChar = "G" Or firstChar = "S" Or firstChar = "M" Or firstChar = "P" Then
        ' 判断2-5位是数字，先判断长度足够避免Mid报错
        If Len(inputStr) >= 5 And IsNumeric(Mid(inputStr, 2, 4)) Then
            ' P开头直接取前5位
            If firstChar = "P" Then
                result = Left(inputStr, 5)
            Else
                ' 找第一个空格位置，没有空格就取整个字符串长度
                spacePos = InStr(1, inputStr, " ")
                If spacePos = 0 Then spacePos = Len(inputStr) + 1
                result = Left(inputStr, spacePos - 1)
                ' 去除末尾的逗号、句号等特殊符号
                Do While Right(result, 1) Like "[,.，。]"
                    result = Left(result, Len(result) - 1)
                Loop
            End If
            Range("E2").Value = result
        End If
    End If
End Sub

修复点说明 #

• 新增首字符转大写判断，兼容大小写输入
• 先默认给E2赋值Overhead作为兜底，所有不满足规则的情况都会保留该值，解决示例5的问题
• 提取空格前内容后新增末尾特殊字符清除逻辑，解决示例3的逗号问题
• 新增空值判断、长度判断，避免运行时报错
• 合并P开头的处理逻辑到主判断块，避免逻辑冲突
• 新增无空格场景的兼容处理

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