返回首页
当前位置: 主页 > Excel教程 > Excel函数教程 >

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

时间:2012-06-17 02:19来源:Office教程学习网 www.office68.com编辑:麦田守望者

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

顶一下
(1)
100%
踩一下
(0)
0%
标签(Tag):excel excel2007 excel2003 excel2010 excel技巧 excel教程 excel实例教程 excel2010技巧
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
猜你感兴趣