在excel中把汉字转换成拼音(只取首字母)

打开
Excel->
工具
->
宏
->Viaual Basic
编辑器
 
  
在弹出来的窗口中对着
VBAproject
点右键
->
插入
->
模块
 
  
下面会出现一个名为
"
模块
1"
，点击
 
  
在右边的空白栏中粘贴以下内容：
 
  
Function pinyin(p As String) As String