如何从ID字符串末尾删除字母（可变字母数量）？

Question

我有一个ID列表，我试图清理并与另一个列表进行比较。 ID具有可变格式（例如，RFP322343BA，PPL232334，RFP32334A-00）。我试图标准化前端数据（例如RFP322343，PPL232334和RFP32234）以便进行比较。如何删除不同长度的这些结束文本/符号字符串？

Answer 1

在单元格A1中使用RFP32334A-00，然后     = IF（RIGHT（LEFT（A1,9），1）=＆＃34; A＆＃34;，LEFT（A1,8），LEFT（A1,9）） 工作，假设1）只有前9个字符是感兴趣的，2）它只是＃34; A＆＃34;在＆＃34;奇怪＆＃34;的第9位你在上面提供的号码。如果只有少数这些奇数，那么左（a1,9）将更简单。

Answer 2

考虑以下用户定义函数（UDF）：

Public Function FirstPart(sIn As String) As String
    Dim i As Long, L As Long, Armed As Boolean, CH As String
    FirstPart = ""
    Armed = False
    L = Len(sIn)

    For i = 1 To L
        CH = Mid(sIn, i, 1)
        If IsNumeric(CH) Then
            Armed = True
        End If
        If Not Armed Then
            FirstPart = FirstPart & CH
        Else
            If Not IsNumeric(CH) Then
                Exit Function
            Else
                FirstPart = FirstPart & CH
            End If
        End If
    Next i
End Function

它找到第一个数字字符后的第一个非数字字符，并在该点处剪切字符串。