广告栏目

你现在的位置: > 社会热点 >

用公式提取Excel单元格中的汉字



文章发布时间:2015/5/27 19:24:04



职场礼仪技巧有哪些?结婚不能找哪几种女人?经典养生的小秘方、您都知道吗?【转载】word技巧一般人都认为相见恨晚嫦娥写给八戒的信

治疗风湿的祖传方棣欒荆楦¤吙鍗?应野平作品精选集(中)果香四溢咖喱鸡饭无锡荡口古镇采风摄影作品一(原创)图说:全国各地丈母娘要的彩礼,山东的霸气又直接(3斤百元人民币)!如果爱有来生,我仍只为你珍惜【情感美文】国外艺术网站41个八大山人花鸟画(全册)乙肝治愈方(供参考)开国元勋回味经典*一人一首成名曲精选(二)【FLASH绝品音画】揭秘智能手机怪现象——腾讯数码东北凉拌菜做法【心食谱】07上调企业退休职工养老金的三个要素2012年中考物理模拟试题汇总走进奢华的迪拜生活:一个车牌价值60万[组图]中国验方浮肿看完很舒服百万土豪金内衣24纯金打造盘点男人艳遇时的各种心理2鍒嗛挓鍋氬嚭鑺傛按鍨嬭嚜鍔ㄦ祰姘村櫒无线路由大讲堂第八课如何泡到吉他手?血液里有哪些重要指标?

NSK 6922

NSK 6922

 

启功先生临《玄秘塔碑》中30岁之前能遇见的危机,这10部电影能治【博客特效】蓝色落花flash特效定位制作代码血液里有哪些重要指标?

对于一个混杂各种字母、数字及其他字符和汉字的文本字符串,要提取其中的汉字,在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单元格,要提取其中的所有汉字,可用下面的自定义函数。方法是:

    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


http://player.youku.com/player.php/sid/XMjExNjEwNzgw/v.swf

http://player.youku.com/player.php/sid/XMjExNjEwNzgw/v.swf

社会热点 │ 小道消息 │ 生活聚焦 │ 城市风声 │ 网络新闻 │ 连播快讯

新闻连播版权所有
不存在相应的目录