求助:提取文本中的汉字

jackjoness

深夜了，还请有高手帮助~
想从：单元格文本中（含有数字、汉字）————〉提取汉字出来

具体见附件：求助 求助.rar (2.25 KB, 下载次数: 44)

2008-11-2 02:42 上传

点击文件名下载附件
分解提取汉字

邮件：wjlbeer@126.com

谢谢~

jackjoness

谢谢大家，关于取汉字部分我已经解决；现在问题是，如何把其中的数字分离出来？？

fdd

=MID(A2,MATCH(TRUE,ISERROR(-MID(SUBSTITUTE(A2,"-",""),ROW(INDIRECT("1:"&LEN(SUBSTITUTE(A2,"-","")))),1)),),SUM(--ISERROR(-MID(SUBSTITUTE(A2,"-",""),ROW(INDIRECT("1:"&LEN(SUBSTITUTE(A2,"-","")))),1))))
数组公式，按CTRL+SHIFT+ENTER结束（提取汉字）

提取数字，结合前面的结果用公式：
=SUBSTITUTE(A2,前面结果单元格引用,"")    不过，结果是除掉汉字以外的所有数字

[ 本帖最后由 fdd 于 2008-11-2 07:23 编辑 ]

lt0000

简化公式：
=MID(A2,MATCH(TRUE,CODE(MID(A2,ROW($1:$99),1))>255,),LENB(A2)-LEN(A2))
（长度不超99的，可自己更改大小以适应字符串长）
取汉字.rar (3.05 KB, 下载次数: 67)

2008-11-2 07:38 上传

点击文件名下载附件

fdd

这个简单，充分利用了单双字节的特点！

zouyuejian

=VarSUBSTITUTE(A2,"",1)
“-”用SUBSTITUTE去掉。
Public Function VarSUBSTITUTE(text As String, new_text As String, Var_num As Integer) As String
Dim ichr As String
If Var_num = 0 Then
For i = 1 To VBA.Len(text)
ichr = VBA.Mid$(text, i, 1)
If ichr Like "[a-zA-Z]" Then
VarSUBSTITUTE = VarSUBSTITUTE & new_text
Else
VarSUBSTITUTE = VarSUBSTITUTE & ichr
End If
Next i
ElseIf Var_num = 1 Then
For i = 1 To VBA.Len(text)
ichr = VBA.Mid$(text, i, 1)
If ichr Like "[0-9]" Then
VarSUBSTITUTE = VarSUBSTITUTE & new_text
Else
VarSUBSTITUTE = VarSUBSTITUTE & ichr
End If
Next i
ElseIf Var_num = 2 Then
For i = 2 To VBA.Len(text)
ichr = VBA.Mid$(text, i, 1)
If VBA.Asc(ichr) < 0 Then
VarSUBSTITUTE = VarSUBSTITUTE & new_text
Else
VarSUBSTITUTE = VarSUBSTITUTE & ichr
End If
Next i
Else
VarSUBSTITUTE = ""
End If
End Function

excel0123

取数字
C2=REPLACE(A2,MATCH(2,LENB(MID(A2,ROW($1:$99),1)),),LENB(A2)-LEN(A2),)
数组公式.按CTRL+SHIFT+ENTER结束.

shaowu459

这个还是略有不同的，因为汉字是双字节，直接这样的公式xcd斑竹好像在officefans里出过一道题目，轻舟老师的公式好像是最短的了。本题中如果混合了其他字符等等就不好用了，特别是英文系统用不了lenb,searchb这样的公式。