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

各位用户为了找寻关于excel提取字符串中数字、中文、英文字符的自定义函数的资料费劲了很多周折。这里教程网为您整理了关于excel提取字符串中数字、中文、英文字符的自定义函数的相关资料，仅供查阅，以下为您介绍关于excel提取字符串中数字、中文、英文字符的自定义函数的详细内容

Function MyGet(Srg As String, Optional n As Integer = False)‘n为1，取汉字，n为2，取字母，n为0，取数字Dim i As IntegerDim s, MyString As StringDim Bol As Boolean

For i = 1 To Len(Srg)s = Mid(Srg, i, 1)If n = 1 ThenBol = Asc(s) < 0 ‘文字ElseIf n = 2 ThenBol = s Like "[a-z,A-Z]" ‘字母ElseIf n = 0 ThenBol = s Like "#" ‘数字End IfIf Bol Then MyString = MyString & sNext

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

End Function