在excel中把汉字转换成拼音只取首字母修订
版
IBMT standardization office【IBMT5AB-IBMT08-IBMT2C-ZZT18】
打开Excel->工具->宏->Viaual Basic编辑器
在弹出来的窗口中对着VBAproject点右键->插入->模块
下面会出现一个名为\模块1\,点击
在右边的空白栏中粘贴以下内容:
Function pinyin(p As String) As String
i = Asc(p)
Select Case i
Case -20319 To -20284: pinyin = \
Case -20283 To -19776: pinyin = \
Case -19775 To -19219: pinyin = \
Case -19218 To -18711: pinyin = \
Case -18710 To -18527: pinyin = \
Case -18526 To -18240: pinyin = \
Case -18239 To -17923: pinyin = \
Case -17922 To -17418: pinyin = \
Case -17417 To -16475: pinyin = \
Case -16474 To -16213: pinyin = \
Case -16212 To -15641: pinyin = \
Case -15640 To -15166: pinyin = \
在excel中把汉字转换成拼音只取首字母修订版
在excel中把汉字转换成拼音只取首字母修订版IBMTstandardizationoffice【IBMT5AB-IBMT08-IBMT2C-ZZT18】打开Excel->工具->宏->ViaualBasic编辑器
推荐度:
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
点击下载文档文档为doc格式