如何在excel中把汉字转换成拼音

启动Excel
（其它版本请仿照 *** 作），打开相应的工作表；
2执行“工具→宏→Visual
Basic编辑器”命令（或者直接按“Alt+F11”组合键），进入Visual
Basic编辑状态；
执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态；
将代码输入其中:
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
-20304
To
-20296:
pinyin
=
"an
"
Case
-20295
To
-20293:
pinyin
=
"ang
"
……
Case
Else:
pinyin
=
p
End
Select
End
Function
Function
getpy(str)
For
i
=
1
To
Len(str)
getpy
=
getpy
&
pinyin(Mid(str,
i,
1))
Next
i
End
Function
5代码输入完成后，直接关闭Visual
Basic编辑窗口，返回Excel编辑状态；
6定义函数就可以用了，如：选中A2单元格，输入公式：=getpy(A2)。

---