excel提取首字母

假如人名在A1，那么在B1输入=

LOOKUP(CODE(A1),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{"A","B","C","D","E","F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"})回车就是了

方法：

1、利用在线汉字转拼音应用将需要转换的汉字生成拼音；

2、将生成的拼音粘贴回excel，利用分列功能分成3列，每列都选文本格式；

3、按第三列（该列两字人名为空）排序，将空格排到下方；

4、在其后第一列第一行、第二行手动输入第一个、第二个人名首字母，选中两单元格，右键拖动拖动手柄至最下，松开鼠标，选“快速填充”；

5、此时，三字人名首字母提取完成，二字人名为空，在第一个二字名后手动输入首字母，下面首字母自动生成；

6、选中首字母列，开始菜单——“条件格式”——“突出显示单元格规则”——重复值，找出重复值，手动进行区分。

方法/步骤

首先，打开Excel，同时按下Alt+F11键，打开VBE界面，如下图所示。在VBE界面中，单击中所示的左上角空白处，选择“插入“，”模块“。

此时，就插入了一个模块，后面的代码就要放到这个模块中，保证右侧空白区域是模块代码的编辑区（最保险的做法是双击模块），然后执行下一步 *** 作。

将下面的代码全部复制粘贴到空白区域。

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，就可以像Excel自带的函数一样使用这个自定义的Getpy函数了，它只有一个参数，参数可以直接指定单元格，也可以直接输入字符。

需要注意的是，Getpy函数，只返回汉字拼音的首字母，如果是其他的字母或者数据等非汉字文本，会返回原来的值，如下图所示：

好了，关于Excel中如何用函数实现提取汉字的首字母的经验就介绍到这里。如果有什么不明白的地方，可以联系作者。欢迎阅读作者的其他百度经验，提高Excel能力。

本来想用VBA 编程给你搞定，后来一想excel有个类似功能的函数！ 于是用公式搞定比较简单！ 直接在C1单元格输入公式“=LEFT(D1,1)”然后往下托就OK！ 如果你想只要数值可以选择性粘贴！ 简单吧！如果有什么问题不明白可以加我QQ：79930318