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