今天帮表哥研究了一下,成功实现了这一功能,好开心啊~~
Sub bianLi()
Dim str2, sFor 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