两万常用汉字的拼音+首字母缩写+unicode编码对照表

Posted 2022-12-02 liuxiaoddd

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了两万常用汉字的拼音+首字母缩写+unicode编码对照表相关的知识，希望对你有一定的参考价值。

最近做项目遇到一项需求，为了隐藏汉字，对医院名称使用首字母代替，对医生名称用拼音代替。

直接下载最终excel成果：

https://download.csdn.net/download/liuxiaoddd/11545306

查阅了众多资料，对各种结果分析汇总并改造，最终总结如下：

1. 读出汉字的拼音首字母可通过Excel 公式实现；

2. 读出汉字的拼音实现方法，基本需要借助编程，但是目前网上流传最广的版本是比较老旧的版本，不仅编码覆盖不全，而且有错误的mapping。

3. 得到2万个常用的汉字并不容易，最终是通过程序按照unicode顺序逐一写出，才得到了汉字全集

4. VBA中十六进制和十进制互相转化的妙用

首先，VBA中，把unicode转为汉字：

Sub Unicode2HZ()

Sheets("Sheet1").Cells(1, 1) = ChrW$(CLng("&H" & "4E00"))

End Sub

其次，VBA中十进制与十六进制互相转化：

Sub m_Unicode2HZ2()
'十六进制转十进制
Sheets("编码对照表").Cells(1, 1) = WorksheetFunction.Hex2Dec("4E00")
Sheets("编码对照表").Cells(2, 1) = WorksheetFunction.Hex2Dec("9FA5")

'十进制转十六进制
Sheets("编码对照表").Cells(3, 1) = "'" & CStr(Hex(Sheets("编码对照表").Cells(1, 1).Value))
Sheets("编码对照表").Cells(4, 1) = "'" & CStr(Hex(Sheets("编码对照表").Cells(2, 1).Value))
End Sub

最后，VBA中通过unicode编码写出所有的汉字：

Sub getAllHanzi()

Dim i As Long
Dim low As Long
Dim high As Long

low = WorksheetFunction.Hex2Dec("4E00") - 1
high = WorksheetFunction.Hex2Dec("9FA5") + 1

i = low + 1

Do While i > low And i < high
Sheets("编码对照表").Cells(i - 19967, 1) = i
Sheets("编码对照表").Cells(i - 19967, 2) = "'" & CStr(Hex(i))
Sheets("编码对照表").Cells(i - 19967, 3) = ChrW$(CLng("&H" & Sheets("编码对照表").Cells(i - 19967, 2).Value))
i = i + 1
Loop

End Sub

最后的几个标签页的结果分别如图：

取汉字首字母：根据Excel公式生成

取汉字拼音：根据VBA中的代码生成，不太全

编码对照表：比较全的对照表，但没有用来更新“取汉字拼音”后台逻辑的vba程序，仅作研究，为大家提供便利。

由于含有宏，文件格式为xlsm，需要启用宏各功能才可用。

已经上传到CSDN论坛，名称为“汉字编码拼音对照表.xlsm”

直接下载最终excel成果：

https://download.csdn.net/download/liuxiaoddd/11545306