excel怎么自动生成助记码

用宏自定义函数吧。在Excel中同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：Function SZPY(tmpStr As String) As String Dim i，j As Integer j = Len(tmpStr) For i = 1 To j SZPY = SZPY &； WorksheetFunction.VLookup(Mid(tmpStr，i，1)，_ [{＂吖＂，＂a＂；＂八＂，＂b＂；＂嚓＂，＂c＂；＂咑＂，＂d＂；＂鵽＂，＂e＂；＂发＂，＂f＂；＂猤＂，＂g＂；＂铪＂，＂h＂；＂ 夻＂，＂j＂；＂咔＂，＂k＂；＂垃＂，＂l＂；＂呒＂...