Excel中将汉字转化为拼音.docxVIP

2022年-2023年最新 2022年-2023年最新 Excel 中将汉字转化为拼音（完整拼音）版2022-04-11 18:48:06| 分类： 计算机技术 | 标签：无 |字号大中小 订阅 . 打开 Excel-工具-宏-Viaual Basic 编辑器 在弹出来的窗口中对着 VBAproject 点右键-插入-模块下面会出现一个名为模块 1，点击 在右边的空白栏中粘贴以下内容： 联系方法：Email:wuweiyin@ 个人博客： 如有不正确的地方，请提出来或是帮忙完善 谢谢 Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20318: pinyin = a Case -20317 To -20305: pinyin = ai Case -20304 To -20296: pinyin = an Case -20295 To -20293: pinyin = ang Case -20292 To -20284: pinyin = ao Case -20283 To -20266: pinyin = ba Case -20265 To -20258: pinyin = bai Case -20257 To -20243: pinyin = ban