1、用公式提取 Excel单元格中的汉字用到以下函数Mid提取中间字符=MID(D9,FIND(“区“,D9)+1,LEN(D9) -FIND(“区“,D9)Left提取左边字符Rigth提取右边字符Find查找字符在字符串中的位置 FIND(“区“,D9)Findb反向查找字符在字符串中的位置Len字符串长度。对于一个混杂各种字母、数字及其他字符和汉字的文本字符串，要提取其中的汉字，在 Excel中通常可用下面的公式。例如下图 A列中的字符串，要在 B列提取其中的汉字（或词语）。如果汉字位于字符串的开头或结尾，用 LEFT或 RIGHT函数即可提取，例如上图中 A2:A4区域中的字符串。在 B2
2、中输入下面的公式：=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中输
3、入数组公式：=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单元格，要提取其中的所有
4、汉字，可用下面的自定义函数。方法是：1. 按 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, “)End WithSet regEx = NothingEnd Function提取单元格中“区”字之后的字符，其中 FIND(“区“,D9)+1 为“区”字之后所在单元格的位置，LEN(D9)为单元格的字符长度，LEN(D9)-FIND(“ 区“,D9 )，字符长度减去“区”字之前的长度，等于需要提取“区”字之后所有字符的长度。=MID(D9,FIND(“区“,D9)+1, LEN(D9)-FIND(“区“,D9 )提取“区”与“横”之前的字符=MID(D9,FIND(“区“,D9)+1, FIND(“横“,D9)-FIND(“区“,D9)
