Excel添加汉字转换成拼音   将以下代码放入模块： Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20318: pinyin = "a" Case -20317 To -20305: pinyin = "ai" Case …

心朗如月 自在如风     [bvideo bv="BV1k741147DS"][/bvideo]