excel表格怎么提取姓名拼音

1.在WPS表格里怎么把姓名全部转换为拼音或小写字母

想要在WPS表格中把汉字转换成拼音或小写字母，只需要运用模块代码编辑功能就能轻松解决，具体操作方法如下： 步骤1、打开要转换成拼音的excel表格，按“Alt+F11”组合键，进入Visual Basic编辑状态。

也就是看到的这个灰色的编辑界面。步骤2、执行“插入→模块”命令，插入一个新模块。

再双击插入的模块，进入模块代码编辑状态。步骤3、看到如下界面。

步骤4、把下面的所有内容复制，粘贴到步骤4中的空白处。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 -20292 To -20284: pinyin = "ao " Case -20283 To -20266: pinyin = "ba " Case -20265 To -20258: pinyin = "bai " Case -20257 To -20243: pinyin = "ban " Case -20242 To -20231: pinyin = "bang " Case -20230 To -20052: pinyin = "bao " Case -20051 To -20037: pinyin = "bei " Case -20036 To -20033: pinyin = "ben " Case -20032 To -20027: pinyin = "beng " Case -20026 To -20003: pinyin = "bi " Case -20002 To -19991: pinyin = "bian " Case -19990 To -19987: pinyin = "biao " Case -19986 To -19983: pinyin = "bie " Case -19982 To -19977: pinyin = "bin " Case -19976 To -19806: pinyin = "bing " Case -19805 To -19785: pinyin = "bo " Case -19784 To -19776: pinyin = "bu " Case -19775 To -19775: pinyin = "ca " Case -17721 To -17704: pinyin = "he " Case -17703 To -17702: pinyin = "hei " Case -17701 To -17698: pinyin = "hen " Case -17697 To -17693: pinyin = "heng " Case -17692 To -17684: pinyin = "hong " Case -17683 To -17677: pinyin = "hou " Case -17676 To -17497: pinyin = "hu " 步骤5、按下ALT+Q关闭Visual Basic编辑窗口，返回Excel编辑状态。

步骤6、选中转换后的拼音需要放在哪个列，例如要把B列的第2行的内容转换成拼音，放在D列的第2个单元格，输入公式：=getpy(B2)，这里的B2，是指源头单元格的坐标。步骤7、如果要去除拼音之间的空格。

去掉空格的拼音放在E列，如果这个未去掉空格的数据原来在D2单元格，去掉空格之后的拼音放在E2单元格，则在E2单元格输： =SUBSTITUTE(D2," ","")。

2.excel中如何实现提取汉字的拼音首字母

分两步1、取得拼音得用到VBA打开Excel->工具->宏->Viaual Basic编辑器在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1"，点击在右边的空白栏中粘贴以下内容：Function getpychar(char)tmp = 65536 + Asc(char)If (tmp >= 45217 And tmp <= 45252) Thengetpychar = "A"ElseIf (tmp >= 45253 And tmp <= 45760) Thengetpychar = "B"ElseIf (tmp >= 45761 And tmp <= 46317) Thengetpychar = "C"ElseIf (tmp >= 46318 And tmp <= 46825) Thengetpychar = "D"ElseIf (tmp >= 46826 And tmp <= 47009) Thengetpychar = "E"ElseIf (tmp >= 47010 And tmp <= 47296) Thengetpychar = "F"ElseIf (tmp >= 47297 And tmp <= 47613) Thengetpychar = "G"ElseIf (tmp >= 47614 And tmp <= 48118) Thengetpychar = "H"ElseIf (tmp >= 48119 And tmp <= 49061) Thengetpychar = "J"ElseIf (tmp >= 49062 And tmp <= 49323) Thengetpychar = "K"ElseIf (tmp >= 49324 And tmp <= 49895) Thengetpychar = "L"ElseIf (tmp >= 49896 And tmp <= 50370) Thengetpychar = "M"ElseIf (tmp >= 50371 And tmp <= 50613) Thengetpychar = "N"ElseIf (tmp >= 50614 And tmp <= 50621) Thengetpychar = "O"ElseIf (tmp >= 50622 And tmp <= 50905) Thengetpychar = "P"ElseIf (tmp >= 50906 And tmp <= 51386) Thengetpychar = "Q"ElseIf (tmp >= 51387 And tmp <= 51445) Thengetpychar = "R"ElseIf (tmp >= 51446 And tmp <= 52217) Thengetpychar = "S"ElseIf (tmp >= 52218 And tmp <= 52697) Thengetpychar = "T"ElseIf (tmp >= 52698 And tmp <= 52979) Thengetpychar = "W"ElseIf (tmp >= 52980 And tmp <= 53640) Thengetpychar = "X"ElseIf (tmp >= 53689 And tmp <= 54480) Thengetpychar = "Y"ElseIf (tmp >= 54481 And tmp <= 62289) Thengetpychar = "Z"Else '如果不是中文，则不处理getpychar = charEnd IfEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy & getpychar(Mid(str, i, 1))Next iEnd Function按ALT+F11回到EXCEL2、如果你的表如下A B C D1 姓名 出生年月 工作时间2 刘德华 1965 1982在D2单元格输入公式=getpy(A2)&right(B2,2)&right(C2,2)。

3.如何将EXCEL表格中的汉字转为拼音

在word 和EXCEL中，都可以： 选中内容----格式---拼音指南 但，在EXCEL中，用起来不如word 中方便，可以在word中形成，再粘贴到别的地方，如粘贴到EXCEL中。

如（rú）何（hé）将（jiāng）EXCEL表（biǎo）格（gé）中（zhōng）的（de）汉（hàn）字（zì）转（zhuǎn）为（wéi）拼（pīn）音（yīn） --------这是在word中形成的，但，在word 和EXCEL中，拼音在字的上面。