说明: excle 汉字转拼音,把下面的代码拷贝到excel->工具-》宏-->Vb编辑器中即可: Dim d As Object Function InitDictinary() Set d = CreateObject("scr ipting.Dictionary") d.Add "A", -20319 d.Add "Ai", -20317 d.Add "An", -20304 d.Add "Ang", -20 295 d.Add "Ao", -20292 d.Add "Ba", -2
<jingjingshui> 上传 | 大小:61kb