如何在EXCEL表格中用函数公式将中文变成助记码

1.打开要生成的EXCEL文件，选择工具-宏- Visual Basic编辑器(快捷键:alt+f11)。

2.选择:插入-模块-将下面的代码粘贴到其中并保存。

3、代码部分:

？功能？拼音(Hz？作为？字符串)

暗淡？品马？作为？线

暗淡？我的品玛？作为？不同的

暗淡？临时工？作为？整数，？我？作为？整数，？j？作为？整数

品马？=?“答，20319，”

品马？=?品马？& amp？“b，20283，”

品马？=?品马？& amp？c，19775

品马？=?品马？& amp？d，19218

品马？=?品马？& amp？" e，18710，"

品马？=?品马？& amp？f，18526

品马？=?品马？& amp？g，18239

品马？=?品马？& amp？h，17922

品马？=?品马？& amp？j，17417

品马？=?品马？& amp？k，16474

品马？=?品马？& amp？l，16212

品马？=?品马？& amp？m，15640

品马？=?品马？& amp？n，15165

品马？=?品马？& amp？o，14922

品马？=?品马？& amp？p，14914

品马？=?品马？& amp？" q，14630，"

品马？=?品马？& amp？r，14149

品马？=?品马？& amp？s，14090

品马？=?品马？& amp？t，13318

品马？=?品马？& amp？w，12838

品马？=?品马？& amp？x，12556

品马？=?品马？& amp？y，11847

品马？=?品马？& amp？z，11055

我的品玛？=?分裂(品马，？",")

为了什么？我？=?1?去哪？伦琴(赫兹)

临时工？=?Asc(Mid(Hz，我，？1))

如果？临时工？& lt？0?然后

临时工？=?Abs(温度)

为了什么？j？=?45?去哪？1?一步？-2

如果？临时工？& lt=?Val(MyPinMa(j))？然后

拼音？=?拼音？& amp？MyPinMa(j？-?1)

退出？为

结束？如果

然后

其他

？保留非中文字符

拼音？=?拼音？& amp？中间(赫兹，？我，？1)

结束？如果

然后

拼音？=?修剪(拼音)

结束？职能4。保存后，返回EXCEL内容编辑界面？

5.需要生成助记码的地方。输入公式=拼音(对应汉字单元格)？