excel汉字转拼音(首字母).docx

excel汉字转拼音（首字母）这个是我在一个论坛里看到的（原贴地址： 先建立一个VBA自定义函数，（工具-宏-Visual Basic编辑器-，插入模块,在VBA编辑器里面-插入-模块-贴入下面代码）（如果是office 2010的话要先在文件-选项-自定义功能区-“主选项卡”下，选中“开发工具”）那么，比如在A1中有进退两难，则在B1中输入 =PINYIN(A1, ,2) ，则会得到 jin tui liang nan ，在C1中输入 =PY(PINYIN(A1, ,2), )，则会得到 JTLN Public PY_DB(1 To 72, 1 To 94) As StringPublic PY_Index() As IntegerSub DealVal_1()Dim