如何从EXCEL中快速提取中文(汉字)?
给你一个自定义函数吧,操作如下:按ALT+F11,或依次点工具,宏,VB编辑器,弹出的编辑器中点插入模块,
新弹出的空白窗口中输入以下代码:
Function getchn(MyValue As Range)
Dim i As Integer
Dim chn As String
For i = 1 To Len(MyValue)
If Asc(Mid(MyValue, i, 1)) < 0 Then
chn = chn & Mid(MyValue, i, 1)
End If
Next
getchn = chn
End Function
关闭VB编辑器窗口,回到表格中,
选中你要显示中文字符的单元格,如B1,点插入,函数,选择自定义函数,这时函数列表中有一个“getchn”这样的函数,这就是你刚才编辑的那段VB编码代表的一个自定义函数。其用法和EXCEl中函数用法是一样的,其参数就是你包含中中文那个单元格,比如A1单元格,就是你的“”字符串。结果是经理两个字显示在B1中,
写以上过程是让你明白,刚才编辑的这个函数是什么意思,其实,你可以直接在A1中输入:=getchn(A1)
解压密码: detechn或detechn.com
免责声明
本站所有资源出自互联网收集整理,本站不参与制作,如果侵犯了您的合法权益,请联系本站我们会及时删除。
本站发布资源来源于互联网,可能存在水印或者引流等信息,请用户自行鉴别,做一个有主见和判断力的用户。
本站资源仅供研究、学习交流之用,若使用商业用途,请购买正版授权,否则产生的一切后果将由下载用户自行承担。