VBA 一键中文转拼音

昨天发了文章后有人问Excel中是否有函数可以把中文转为拼音，类似“张小凡”转为“zhangxiaofan”，答案是目前的Excel版本中是没有的，那么我们能不能利用Excel现有的工具实现这个功能呢？答案是肯定的

方法一：创建一个全部汉字&拼音的配置表，转换时进行关联匹配

优点：多音字用户可以自由选择，生僻字不会漏掉

缺点：耗时久，效率低

下面简单举个例子给大家

1、配置表中文转拼音

因为时间原因函数设置仅支持两位名称

另外还有一种简单方便的办法

方法二：汉字在编码表中存在固定的顺序，把一部分范围的汉字直接指向某一个拼音即可

优点：简单快捷，用户使用方便

缺点：自编函数，多音字需手动更改，生僻字无法判断

2、函数中文转拼音

3、函数中文转拼音且首字母大写

第二种方法简单好用，且适用面广，推荐大家用，方法是利用VBA自建函数

先用个简单的例子给大家介绍一下：判断一个数的奇偶性，为奇数则返回该数字加一后的值除以二，为偶数返回该数字除以二

方法：同时按住 ALT+F11，选择 插入-模块 ，将下面这段编码写入，保存

Function xxx(inte)

x = inte Mod 2

If x = 0 Then xxx = inte / 2 Else xxx = (inte + 1) / 2

End Function

效果：

告诉大家一个彩蛋，不管是什么数字一直用这个函数计算的话，最终返回的结果都是1

对于中文转拼音这个函数，方法是一模一样的，区别的地方在于，要粘贴的代码是另一段代码，代码较长，大家可以去网盘下载

链接: https://pan.baidu.com/s/1RxAuKOXMwgNwReTp3rLwQA 密码: um9a

就这样，下期见

喜欢我就微信扫描下面这个萌萌的二维码关注我吧~