当前位置：首页>Excel>EXCEL:如何根据汉字返回拼音首字母大写?

EXCEL:如何根据汉字返回拼音首字母大写?

2026-03-26 03:01:04

有小伙伴提问：EXCEL中如何根据汉字返回对应拼音首字母大写？

EXCEL中，并没有能直接实现这个需求的函数，也没有拼音对应的函数。要解决这个问题，普通的函数公式无法处理，我们需要转换一下思路。

建议关注收藏一下教程，避免以后工作需要时找不到了！

这个问题，可以用VBA自定义函数处理,操作步骤如下：

打开 VBA 编辑器

按Alt + F11组合键，打开 VBA 编辑器。

插入模块

点击 “插入”→“模块”，新建一个模块。

粘贴代码

将以下代码复制粘贴到模块中

写好代码后，返回表格视频中，就可以直接用这个函数了。

代码我们放在文章最后，我们先介绍一下逻辑核心逻辑基础：

英文字母、数字、符号的 Asc 编码是正数（比如 A=65，a=97，0=48）；

简体中文字符在 VBA 的 Asc 函数中，返回的是负的数字编码（范围大概在-20319 ~ -2050之间）；
咱们的 VBA 代码就是把这个负数区间按拼音首字母划分（比如 A 对应-20319 ~ -20284，B 对应-20283 ~ -19776），判断第一个字的编码落在哪个区间，就返回对应的首字母。

简单说，Asc(firstChar)就是给第一个汉字做「数字标记」，代码通过这个标记判断它该对应哪个拼音首字母。

代码如下：

Function GetFirstPY(rng As Range) As String Dim strText As String, firstChar As String strText = Trim(rng.Value) If strText = "" Then Exit Function firstChar = Left(strText, 1)  Dim PY As String Select Case Asc(firstChar) Case -20319 To -20284: PY = "A" Case -20283 To -19776: PY = "B" Case -19775 To -19219: PY = "C" Case -19218 To -18711: PY = "D" Case -18710 To -18527: PY = "E" Case -18526 To -18240: PY = "F" Case -18239 To -17923: PY = "G" Case -17922 To -17418: PY = "H" Case -17417 To -16475: PY = "J" Case -16474 To -16213: PY = "K" Case -16212 To -15641: PY = "L" Case -15640 To -15166: PY = "M" Case -15165 To -14923: PY = "N" Case -14922 To -14915: PY = "O" Case -14914 To -14631: PY = "P" Case -14630 To -14150: PY = "Q" Case -14149 To -14091: PY = "R" Case -14090 To -13119: PY = "S" Case -13118 To -12839: PY = "T" Case -12838 To -12557: PY = "W" Case -12556 To -11848: PY = "X" Case -11847 To -11056: PY = "Y" Case -11055 To -2050: PY = "Z" Case Else: PY = firstChar '非汉字原样返回 End Select GetFirstPY = UCase(PY)End Function