用VBA截取excel中【第一个字符到倒数第一个不是数字或字母的字符串】

今天帮表哥研究了一下，成功实现了这一功能，好开心啊~~

Sub bianLi()

Dim str2, s
For lie = 2 To 1663
a = Cells(lie, 2)


s = a
    For i = 1 To Len(s) - 1
        char = (Left(Right(s, i), 1))
        iA = Asc(char)
        If (iA >= 65 And iA <= 90) Or (iA >= 97 And iA <= 122) Or (iA >= 48 And iA <= 57) Or iA = 46 Then GoTo nexti
        str2 = Left(s, Len(s) - i + 1)
        Exit For
nexti:
Next i
Cells(lie, 4).Value = str2
Next
End Sub