剥离尾随非数字字符

Question

如何删除尾随的非数字字符。

输入：

GWS9001SWE
GD2345UU
345AS
Y5B

输出：

GWS9001
GD2345
345
Y5

Answer 1

这可以通过一个简单的公式来完成：

=LEFT(A1,AGGREGATE(14,6,ROW($1:$50)/(ISNUMBER(--MID(A1,ROW($1:$50),1))),1))

Answer 2

UDF（用户定义的函数）。像普通的功能一样使用它。

Function StripValue(cell)
    With CreateObject("VBScript.RegExp")
        .IgnoreCase = True: .Pattern = "[a-z]+$"
        StripValue = .Replace(cell.Value, "")
    End With
End Function