如何应用Excel函数把汉字换成拼音首字母 | 您所在的位置:网站首页 › excel如何汉字转拼音 › 如何应用Excel函数把汉字换成拼音首字母 |
根据GB2312-1980 信息交换用汉字编码字符集 汉字分为一级汉字(3755个)和二级汉字(3008)个,一级汉字使用拼音排序,二级汉字使用笔画排序。因此对于一级汉字比较好办,找到每个拼音开始和结束的汉字内码即可。 对于二级汉字还没有好的办法,不过一级汉字3755个基本上已经够用了。目前网上的方法都是针对一级汉字的。 以下使用VBA制作一个自定义函数:getpy在表格中直接使用这个函数即可。 Function getpychar(char)tmp = 65536 + Asc(char)If (tmp >= 45217 And tmp = 45253 And tmp = 45761 And tmp = 46318 And tmp = 46826 And tmp = 47010 And tmp = 47297 And tmp = 47614 And tmp = 48119 And tmp = 49062 And tmp = 49324 And tmp = 49896 And tmp = 50371 And tmp = 50614 And tmp = 50622 And tmp = 50906 And tmp = 51387 And tmp = 51446 And tmp = 52218 And tmp = 52698 And tmp = 52980 And tmp = 53689 And tmp = 54481 And tmp |
CopyRight 2018-2019 实验室设备网 版权所有 |