excel提取字符串中数字、中文、英文字符的自定义函数

来源:转载

Function MyGet(Srg As String, Optional n As Integer = False)

'n为1,取汉字,n为2,取字母,n为0,取数字

Dim i As Integer

Dim s, MyString As String

Dim Bol As Boolean

For i = 1 To Len(Srg)

s = Mid(Srg, i, 1)

If n = 1 Then

Bol = Asc(s) < 0 '文字

ElseIf n = 2 Then

Bol = s Like "[a-z,A-Z]" '字母

ElseIf n = 0 Then

Bol = s Like "#" '数字

End If

If Bol Then MyString = MyString & s

Next

MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString))

End Function

分享给朋友:
您可能感兴趣的文章:
随机阅读: