获取Excel种文字的拼音首字母函数

一、开启Excel中的 开发工具（文件->选项->自定义功能区->主选卡 勾选开发工具） 二、回到Excel的主页，点选开发工具 Visual Basic 三、选择对应的Sheet档，右键 插入->模块 中插入以下代码，并保存！ Function getpychar(char)     tmp = 65536 + Asc(char)     If (tmp >= 45217 And tmp <=

>>阅读原文<<