excel-汉字转换成拼音简拼(只取首字母)

名字转换为首字母（VBA自定义函数）1、打开EXCEL2、按ALT+F11，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口3、输入公式=hztopy(A1)，填充所有单元格4、选中所有缩写，复制-选择性粘贴-数值（因为是自定义函数，只有在当前文件中可以显示结果，其他电脑因没有公式而显示错误）5、使用条件格式，检索出含有汉字的单元格:先点中一个单元格（设为D5），条件格式-新建格式规则-使用公式确定要设置格式的单元格：在下面对话框中输入公式=LENB(D5)LEN(D5)，自己设置格式，确定后退出，再把该单元格的格式用格式刷刷所有单元格。有汉字的出现所设格式6、选择自定义排序-排序依据“单元格颜色”-次序“无单元格颜色”“在底端”-确定。7、将汉字手动改写为相应的字母。8、核对多音字。注：以上方法只可以在当前文件夹使用，如何将宏保存，使自定义函数可以在所有文件夹中使用1、新建一个EXCEL2、按ALT+F11，点击插入-插入模块，在右面窗口中粘贴下面代码，直接关闭窗口3、另存为-其他格式-文件名改为宏名称、保存类型选择“EXCEL加载宏（*,xlam）”,文件将自动保存在C:\Users\111\AppData\Roaming\Microsoft\AddIns文件夹。4、打开需要工作的EXLEL，点击开始-EXCEL选项-加载项-转到（G）...-选中上面保存的宏名称-确定。这样，在该电脑的所有EXCEL中，都可以直接使用自定义公式。代码(只复制星号内的内容)*******************************************************************************Functionhztopy(hzpyAsString)AsStringDimhzstringAsString,pystringAsStringDimhzpysumAsInteger,hziAsInteger,hzpyhexAsIntegerhzstring=Trim(hzpy)hzpysum=Len(Trim(hzstring))pystring=Forhzi=1Tohzpysumhzpyhex=&H+Hex(Asc(Mid(hzstring,hzi,1)))SelectCasehzpyhexCase&HB0A1To&HB0C4:pystring=pystring+ACase&HB0C5To&HB2C0:pystring=pystring+BCase&HB2C1To&HB4ED:pystring=pystring+CCase&HB4EETo&HB6E9:pystring=pystring+DCase&HB6EATo&HB7A1:pystring=pystring+ECase&HB7A2To&HB8C0:pystring=pystring+FCase&HB8C1To&HB9FD:pystring=pystring+GCase&HB9FETo&HBBF6:pystring=pystring+HCase&HBBF7To&HBFA5:pystring=pystring+JCase&HBFA6To&HC0AB:pystring=pystring+KCase&HC0ACTo&HC2E7:pystring=pystring+LCase&HC2E8To&HC4C2:pystring=pystring+MCase&HC4C3To&HC5B5:pystring=pystring+NCase&HC5B6To&HC5BD:pystring=pystring+OCase&HC5BETo&HC6D9:pystring=pystring+PCase&HC6DATo&HC8BA:pystring=pystring+QCase&HC8BBTo&HC8F5:pystring=pystring+RCase&HC8F6To&HCBF9:pystring=pystring+SCase&HCBFATo&HCDD9:pystring=pystring+TCase&HEDC5:pystring=pystring+TCase&HCDDATo&HCEF3:pystring=pystring+WCase&HCEF4To&HD1B8:pystring=pystring+XCase&HD1B9To&HD4D0:pystring=pystring+YCase&HD4D1To&HD7F9:pystring=pystring+ZCaseElsepystring=pystring+Mid(hzstring,hzi,1)EndSelectNexthztopy=pystringEndFunction*******************************************************************************