提取汉字(函数).docxVIP

-- --- 用公式提取 Excel 单元格中的汉字 对于一个混杂各种字母、 数字及其他字符和汉字的文本字符串， 要提取其中的汉字，在 Excel 中通常可用下面的公式。 例如下图 A 列中的字符串， 要在 B 列提取其中的汉字（或词语）。 如果汉字位于字符串的开头或结尾，用 LEFT或 RIGHT函数即可提取，例如上图中 A2:A4 区域中的字符串。在 B2 中输入下面的公式： =LEFT(A2,LENB(A2)-LEN(A2)) 就会返回字符串中开头的几个汉字。 说明：LENB函数和 LEN函数都可用返回文本字符串中的字符数， 不同的是，LENB函数会将每个汉字 （双字节字符） 的字符数按 2 计数， LEN函数则对所有的字符，无论是单字节还是双字节都按 1 计数，因而公式中的“LENB(A2)- LEN(A2)” 返回文本字符串中的汉字个数。 同样对于 A6:A8 区域中的字符串，在 B6 中用 RIGHT函数即可： =RIGHT(A6,LENB(A6)-LEN(A6)) 如果汉字位于字符串的中间，可使用下面的数组公式。例如图中 A10:A12 区域中的字符串，在 B10 中输入数组公式： =MID(A10,MATCH(2,LENB(MID(A10,ROW(INDIRECT(1:LEN(A10))),1)),), LENB(A10)-LEN(A10)) 公式输入完毕，按 Ctrl+Shift+Enter 结束。 说明：公式先用 MID 函数将字符串中的每个字符分解到到一个字符数组中，然后用 LENB函数返回各字符的的字符数，对于汉字会返回“ 2”。用MATCH函数取得第一个“ 2”的位置，即第一个汉字的位置，最后再用 MID函数提取汉字。 使用上述公式时要求字符串中的汉字是连续的， 中间没有其它字符分隔。 如果字符串中的汉字之间有其它字符分隔， 例如上图中的 A14单元格，要提取其中的所有汉字，可用下面的自定义函数。方法是： 按 Alt+F11 ，打开 VBA编辑器，单击菜单“插入→模块”，在代码窗口中输入粘贴下面的代码： Function 提取汉字 (sString As String) As StringDim regEx As ObjectSet regEx = CreateObject(VBScript.RegExp)With regEx 搜索整个字符 串 .Global = True 匹配非汉字 .Pattern = [^\u4e00-\u9fa5] 将字符串中的非汉字替换为空 提取汉字 = .Replace(sString, )E nd WithSet regEx = NothingEnd Function