Excel自动提取字符串中汉字、英文与数字的函数.doc

文档介绍：Excel 自动提取字符串中汉字、英文与数字的函数提取字符串中汉字、英文与数字的函数语法: myget(srg,n,start_num ) =myget(srg,1,3) ’从第 3 位开始取出中文字符=myget(srg,2) ’从第 1 位开始取出英文字母,第3 个参数省略默认为 1 =myget(srg,,5) ’从第 5 位开始取出数字,第2 个参数省略默认为 0 =myget(srg) ’第2、3 个参数都省略,默认为从第 1 位取出所有数字 Function MyGet(Srg As String, Optional n As Integer = False, Optional start_num As Integer = 1) Dim i As Integer Dim s, MyString As String Dim Bol As Boolean For i= start_num To Len(Srg) s= Mid(Srg, i, 1) Ifn=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 Orn= 2, MyString, Val(MyString)) End Function ___________________________________________________________ ___________________________ excel 单元格里有杂乱的数字汉字字母,但只想要其中的汉字 excel 单元格里有杂乱的数字汉字字母, 但只想要其中的汉字, 请问如何提取,求函数。急。。。例如: 890jdi 联e系3人 jdi8 里面可能还含有不同的符号,如:“等。情况比较复杂, 请高手。。。最佳答案给你一个自定义函数代码: Public Function HZ(rang As String) As String Dim l As Integer Dim Str As String l= Len(rang) Ifl<1 Then HZ= "" Exit Function End If On Error Resume Next For i=1 Tol If Asc(Mid$(rang, i, 1)) <0 Or Asc(Mid$(rang, i, 1)) > 255 Then Str = Str & Mid$(rang, i, 1) End If Next HZ= Str End Function 把这段代码加入模块中,然后在单元格中用公式: ( 假设 A 列从 A2 开始是你那杂乱的字符) =HZ(A2) 向下填充即可。代码加入模块的方法: Alt + F11 键,进入 VBA 编辑器。右击左边的“ Microsoft Excel 对象”,在弹出的菜单中点击“插入”-“模块”。双击模块,在右边把以上代码复制进去。保存。就可以使用这个自定义函数 HZ 了。----------------------------------------------