在excel中把汉字转换成拼音只取首字母修订版

在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 = \