怎么把EXCEL里的中文名字变成拼音的，且首字母要大写。

打开Excel->工具->宏->Viaual Basic编辑器
在弹出来的窗**对着VBAproject点右键->**->模块
下面会出现一个名为"模块1"，点击
在右边的空白栏中粘贴以下内容：
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
Case-18526 To-18240:pinyin="F
Case-18239 To-17923:pinyin="G
Case-17922 To-17418:pinyin="H
Case-17417 To-16475:pinyin="J
Case-16474 To-16213:pinyin="K
Case-16212 To-15641:pinyin="L
Case-15640 To-15166:pinyin="M
Case-15165 To-14923:pinyin="N
Case-14922 To-14915:pinyin="O
Case-14914 To-14631:pinyin="P
Case-14630 To-14150:pinyin="Q
Case-14149 To-14091:pinyin="R
Case-14090 To-13319:pinyin="S
Case-13318 To-12839:pinyin="T
Case-12838 To-12557:pinyin="W
Case-12556 To-11848:pinyin="X
Case-11847 To-11056:pinyin="Y
Case-11055 To-2050:pinyin="Z
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
复制到此结束,本行不复制*
现在转换函数已编写完成，关掉此编缉的窗口。要在Excel中使用，方法如下：
A1 A2
中国=getpy(A1)