excel表格怎么删除姓名中的拼音

1.excel表格中如果有拼音和名字在一起,怎么能快速的把拼音去掉,光

按ALT+F11，插入-模块，复制下列语句Function SplitNumEng(str As String, sty As Byte) Dim StrA As String Dim StrB As String Dim StrC As String Dim i As Integer Dim SigS As String For i = 1 To Len(str) SigS = Mid(str, i, 1) If SigS Like "[a-zA-Z]" Then StrA = StrA & SigS ElseIf SigS Like "#" Then StrB = StrB & SigS Else StrC = StrC & SigS End If Next i Select Case sty Case 1 SplitNumEng = StrA Case 2 SplitNumEng = StrB Case Else SplitNumEng = StrC End SelectEnd Function比如你的数据在A1 BI输入 =SplitNumEng(A1,3) 表示提取中文然后复制-选择性粘贴-数值B列数据，再删除A列。

2.Excel如何删除单元格中汉字、数字、符号、字母

如下图：

B2公式

=IF(LENB(A2)-LEN(A2),REPLACE(A2,MIN(IF(MID(A2,ROW($1:$99),1)>；="吖"，ROW($1:$99))),LENB(A2)-LEN(A2),),"")C2公式

=IF(LENB(A2)-LEN(A2),MID(A2,MIN(IF(MID(A2,ROW($1:$99),1)>；="吖"，ROW($1:$99))),LENB(A2)-LEN(A2)），""）均为数组公式，每输入完一个公式，均要按【CTRL+SHIFT+回车】后，再下拉填充。

其他两个由于涉及到0的问题暂无法给出解决办法。即使是这两个，也是有限制的，就是汉字必须是连续位置上，不能出现 “203汉94字DJ提N取”这种，否则就无法提取。

3.在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)OK了。