DeTechn Blog

如何从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)

当前页面是本站的「Google AMP」版。查看和发表评论请点击:完整版 »