无利可图
EXCEL中能否直接把中文转换成拼音？
网上找的，我自己没测试。
让人加分不厚道，助人为乐快乐之本 打开Excel->工具->宏->Viaual Basic编辑器 在弹出来的窗口中对着VBAproject点右键->插入->模块 下面会出现一个名为＂模块1＂，点击 在右边的空白栏中粘贴以下内容：'''''''''''''''''''''''VBscript代码提供者：小白'联系方法：'E-mail:xiaobai@17560.net''VBA代码转换者：惟惟'联系方法：Email:wuweiyin@yeah.net'个人博客：http://weiwei.blog.163.com'如有不正确的地方，请提出来或是帮忙完善'谢谢'''''''''''''''''''''''''''''' Function getpychar(char) tmp = 65536 + Asc(char) If (tmp >= 45217 And tmp getpychar = ＂A＂ ElseIf (tmp >= 45253 And tmp getpychar = ＂B＂ ElseIf (tmp >= 45761 And tmp getpychar = ＂C＂ ElseIf (tmp >= 46318 And tmp getpychar = ＂D＂ ElseIf (tmp >= 46826 And tmp getpychar = ＂E＂ ElseIf (tmp >= 47010 And tmp getpychar = ＂F＂ ElseIf (tmp >= 47297 And tmp getpychar = ＂G＂ ElseIf (tmp >= 47614 And tmp getpychar = ＂H＂ ElseIf (tmp >= 48119 And tmp getpychar = ＂J＂ ElseIf (tmp >= 49062 And tmp getpychar = ＂K＂ ElseIf (tmp >= 49324 And tmp getpychar = ＂L＂ ElseIf (tmp >= 49896 And tmp getpychar = ＂M＂ ElseIf (tmp >= 50371 And tmp getpychar = ＂N＂ ElseIf (tmp >= 50614 And tmp getpychar = ＂O＂ ElseIf (tmp >= 50622 And tmp getpychar = ＂P＂ ElseIf (tmp >= 50906 And tmp getpychar = ＂Q＂ ElseIf (tmp >= 51387 And tmp getpychar = ＂R＂ ElseIf (tmp >= 51446 And tmp getpychar = ＂S＂ ElseIf (tmp >= 52218 And tmp getpychar = ＂T＂ ElseIf (tmp >= 52698 And tmp getpychar = ＂W＂ ElseIf (tmp >= 52980 And tmp getpychar = ＂X＂ ElseIf (tmp >= 53689 And tmp getpychar = ＂Y＂ ElseIf (tmp >= 54481 And tmp getpychar = ＂Z＂ Else '如果不是中文，则不处理 getpychar = char End If End Function Function getpy(str) For i = 1 To Len(str) getpy = getpy & getpychar(Mid(str, i, 1)) Next i End Function********复制到此结束，本行不复制******* 现在转换函数已编写完成！关掉此编缉的窗口。
要在Excel中使用，方法如下：A1 A2 中国 =getpy(A1)
