EXCEL中文转英文首字母拼写

开发的时候文档只给了名称没有英文，感觉很麻烦，然后就有着这个方法，很管用。

1.复制出要转换的文字

2.按alt+F11 后弹出界面或者

打开【开发工具】菜单，点击第一个【Visual Basic】,弹出代码窗口，

在窗口左侧空白处，点击右键，选择【插入】->【模块】。窗口右侧出现一个白色背景框。

复制粘贴如下内容到右侧框中（虚线之间的内容，不含虚线）：

--------------------------------------------------------------------------------------------------------------------------

Function pinyin(p As String) As String 
  
i = Asc(p) 
  
Select Case i 
  
Case -20319 To -20284: pinyin = "A" 
  
Case -20283 To -19776: pinyin = "B" 
  
Case -19775 To -19219: pinyin = "C" 
  
Case -19218 To -18711: pinyin = "D" 
  
Case -18710 To -18527: pinyin = "E"