Dzwebs.Net

撰写电脑技术杂文十余年

使用公式获取单元格中的汉字

Admin | 2014-8-10 10:21:17 | 被阅次数 | 7449

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  想得到单元格中的汉字,我们得借助公式来实现,并且,分为下面的几种情况:

  A、如果汉字位于字符串的开头或结尾,用LEFT或RIGHT函数即可提取

  在B2中输入下面的公式:

  =LEFT(A,LENB(A2)-LEN(A2))

  就会返回字符串中开头的几个汉字。

  说明:LENB函数和LEN函数都可用返回文本字符串中的字符数,不同的是,LENB函数会将每个汉字(双字节字符)的字符数按2计数,LEN函数则对所有的字符,无论是单字节还是双字节都按1计数,因而公式中的“LENB(A2)-LEN(A2)”返回文本字符串中的汉字个数。

  同样对于A6:A8区域中的字符串,在B6中用RIGHT函数即可:

  =RIGHT(A6,LENB(A6)-LEN(A6))

  B、如果汉字位于字符串的中间

  可使用下面的数组公式。例如图中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函数提取汉字。

  使用上述公式时要求字符串中的汉字是连续的,中间没有其它字符分隔。

  C、如果字符串中的汉字之间有其它字符分隔

  要提取其中的所有汉字,可用下面的自定义函数。方法是:

  1. 按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中输入粘贴下面的代码:

  Function 提取汉字(sString As String) As String
  Dim regEx As Object
  Set regEx = CreateObject("VBScript.RegExp")
  With regEx
   '搜索整个字符串
   .Global = True
   '匹配非汉字
   .Pattern = "[^\u4e00-\u9fa5]"
   '将字符串中的非汉字替换为空
   提取汉字 = .Replace(sString, "")
  End With
  Set regEx = Nothing
  End Function

  说明:上述代码定义了一个自定义函数“提取汉字”。代码利用RegExp对象使用正则表达式匹配模式,清除字符串中的所有非汉字,得到其中的汉字。

  2. 返回Excel工作表界面,在B14单元格中输入公式:

  =提取汉字(A14)

  即可取得A14单元格字符串中的所有汉字。


该杂文来自: Excel杂文

上一篇:excel2010根据单元格字符多少自动调整列宽

下一篇:Excel2010找不到特殊符号

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计