Excel中想要得到汉字拼音的首字母不是一件容易的事情，不过有了VBA即使再难的事情也会变得相对简单。今天就来介绍下Excel中如何利用VBA编写自定义函数来获得汉字拼音首字母。工具/原料moreMicrosoft Excel 2016方法/步骤1/5分步阅读

打开Excel数据表，按下Alt+F11组合键，如下图所示。

2/5

在左侧点击右键，选择“插入”，“模块”，如下图所示。

3/5

复制粘贴如下代码到右侧空白区：

Function py(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20284: py = ACase -20283 To -19776: py = BCase -19775 To -19219: py = CCase -19218 To -18711: py = DCase -18710 To -18527: py = ECase -18526 To -18240: py = FCase -18239 To -17923: py = GCase -17922 To -17418: py = HCase -17417 To -16475: py = JCase -16474 To -16213: py = KCase -16212 To -15641: py = LCase -15640 To -15166: py = MCase -15165 To -14923: py = NCase -14922 To -14915: py = OCase -14914 To -14631: py = PCase -14630 To -14150: py = QCase -14149 To -14091: py = RCase -14090 To -13319: py = SCase -13318 To -12839: py = TCase -12838 To -12557: py = WCase -12556 To -11848: py = XCase -11847 To -11056: py = YCase -11055 To -2050: py = ZCase Else: py = pEnd SelectEnd FunctionFunction 鱼木混猪(str)For i = 1 To Len(str)鱼木混猪= 鱼木混猪 py(Mid(str, i, 1))Next iEnd Function

如下图所示。

4/5

返回Excel中，正常使用自定义函数，如下图所示。

5/5

往下填充公式，就得到了单元格中汉字拼音的首字母，如下图所示。

总结：1/1

1.按下Alt+F11组合键

2.点击右键，选择插入，模块

3.复制粘贴VBA代码到右侧空白区

4.回到Excel，正常使用自定义函数

5.下拉填充公式，得到汉字拼音首字母

注意事项

Tips：一些多音字的汉字提取拼音首字母时可能会出问题

关注以往和今后的经验文章，了解更多Office技巧，感谢投票和关注

汉字首字母自定义函数