excel_汉字转换成拼音简拼(只取首字母).docVIP

名字转换为首字母(VBA自定义函数)

1、打开EXCEL

2、按ALT+F11,点击插入-插入模块,在右面窗口中粘贴下面代码,直接关闭窗口

3、输入公式=hztopy(A1),填充所有单元格

4、选中所有缩写,复制-选择性粘贴-数值(因为是自定义函数,只有在当前文件中可以显示结果,其他电脑因没有公式而显示错误)

5、使用条件格式,检索出含有汉字的单元格:

先点中一个单元格(设为D5),条件格式-新建格式规则-使用公式确定要设置格式的单元格:在下面对话框中输入公式=LENB(D5)LEN(D5),自己设置格式,确定后退出,再把该单元格的格式用格式刷刷所有单元格。有汉字的出现所设格式

6、选择自定义排序-排序依据“单元格颜色”-次序“无单元格颜色”“在底端”-确定。

7、将汉字手动改写为相应的字母。

8、核对多音字。

注:以上方法只可以在当前文件夹使用,如何将宏保存,使自定义函数可以在所有文件夹中使用

1、新建一个EXCEL

2、按ALT+F11,点击插入-插入模块,在右面窗口中粘贴下面代码,直接关闭窗口

3、另存为-其他格式-文件名改为宏名称、保存类型选择“EXCEL加载宏(*,xlam)”,文件将自动保存在C:\Users\111\AppData\Roaming\Microsoft\AddIns文件夹。

4、打开需要工作的EXLEL,点击开始-EXCEL选项-加载项-转到(G)...-选中上面保存的宏名称-确定。

这样,在该电脑的所有EXCEL中,都可以直接使用自定义公式。

代码(只复制星号内的内容)

*******************************************************************************Functionhztopy(hzpyAsString)AsString

DimhzstringAsString,pystringAsString

DimhzpysumAsInteger,hziAsInteger,hzpyhexAsInteger

hzstring=Trim(hzpy)

hzpysum=Len(Trim(hzstring))

pystring=

Forhzi=1Tohzpysum

hzpyhex=H+Hex(Asc(Mid(hzstring,hzi,1)))

SelectCasehzpyhex

CaseHB0A1ToHB0C4:pystring=pystring+A

CaseHB0C5ToHB2C0:pystring=pystring+B

CaseHB2C1ToHB4ED:pystring=pystring+C

CaseHB4EEToHB6E9:pystring=pystring+D

CaseHB6EAToHB7A1:pystring=pystring+E

CaseHB7A2ToHB8C0:pystring=pystring+F

CaseHB8C1ToHB9FD:pystring=pystring+G

CaseHB9FEToHBBF6:pystring=pystring+H

CaseHBBF7ToHBFA5:pystring=pystring+J

CaseHBFA6ToHC0AB:pystring=pystring+K

CaseHC0ACToHC2E7:pystring=pystring+L

CaseHC2E8ToHC4C2:pystring=pystring+M

CaseHC4C3ToHC5B5:pystring=pystring+N

CaseHC5B6ToHC5BD:pystring=pystring+O

CaseHC5BEToHC6D9:pystring=pystring+P

CaseHC6DAToHC8BA:pystring=pystring+Q

CaseHC8BBToHC8F5:pystring=pystring+R

CaseHC8F6ToHCBF9:pystring=pystring+S

CaseHCBFAToHCDD9:pystring=pystring+T

CaseHEDC5:pystring=pystring+T

CaseHCDDAToHCEF3