湖南龙网

  1. 首页 > 生活百科 > >

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))
【excel提取字符串中数字、中文、英文字符的自定义函数】End Function

    推荐阅读


    上一篇：通过Excel的DB函数计算资产折旧

    下一篇：excel怎么将数组公式中的TRUE或FALSE转化为1或0