excel怎么按拼音顺序排序_excel中文汉字按首字母拼音排序技巧-办公软件-PHP中文网

excel怎么按拼音顺序排序_excel中文汉字按首字母拼音排序技巧

穿越時空

发布： 2025-09-14 15:17:01

原创

1107人浏览过

可通过Excel内置拼音排序或添加辅助列实现中文按拼音首字母排序：先选中数据列，使用“数据”选项卡中的“排序”功能，设置排序方法为“拼音排序”；若不支持，可插入辅助列，利用VBA函数GetFirstSpell提取拼音首字母，再根据该列进行排序。

excel怎么按拼音顺序排序_excel中文汉字按首字母拼音排序技巧

如果您在Excel中需要对中文汉字进行排序，但默认的排序方式无法满足按拼音首字母排列的需求，则可以通过调整排序规则来实现。以下是解决此问题的步骤：

本文运行环境：联想ThinkPad X1 Carbon，Windows 11

一、使用Excel内置的拼音排序功能

Excel支持根据单元格内容的拼音首字母进行排序，前提是系统语言设置支持中文，并且数据为纯文本格式。

1、选中包含中文姓名或词汇的数据列，包括标题行（如需保留标题）。

2、点击菜单栏中的“数据”选项卡，找到“排序和筛选”组。

3、点击“排序”按钮，打开排序对话框。

4、在“列”下拉菜单中选择要排序的字段。

5、在“次序”下拉菜单中选择 升序（A到Z） 或 降序（Z到A）。

6、确保“排序依据”设置为 单元格值，“方法”选项设置为 拼音排序。

7、确认后点击“确定”，数据将按照中文拼音首字母顺序重新排列。

二、添加辅助列提取拼音首字母再排序

当Excel未自动识别拼音或排序异常时，可通过公式生成拼音首字母作为辅助列，然后基于该列进行排序。

1、在数据右侧插入一个新列，命名为“拼音首字母”。

2、输入以下公式（适用于具有中文字符集支持的环境）：
=LEFT(PY([@姓名]),1)（注：PY函数为部分第三方插件提供，若无此函数需使用VBA替代）。

3、若无PY函数支持，可使用自定义VBA函数获取首字母：

4、按下Alt + F11打开VBA编辑器，插入模块并粘贴以下代码：

ImgCleaner

一键去除图片内的任意文字，人物和对象

220

查看详情

Function GetFirstSpell(tStr)
    Dim i, AsciiTemp
    For i = 1 To Len(tStr)
        AsciiTemp = Asc(Mid(tStr, i, 1))
        If (AsciiTemp >= -20319 And AsciiTemp <= -20284) Then GetFirstSpell = GetFirstSpell & "A": GoTo NextI
        If (AsciiTemp >= -20283 And AsciiTemp <= -19776) Then GetFirstSpell = GetFirstSpell & "B": GoTo NextI
        If (AsciiTemp >= -19775 And AsciiTemp <= -19219) Then GetFirstSpell = GetFirstSpell & "C": GoTo NextI
        If (AsciiTemp >= -19218 And AsciiTemp <= -18711) Then GetFirstSpell = GetFirstSpell & "D": GoTo NextI
        If (AsciiTemp >= -18710 And AsciiTemp <= -18527) Then GetFirstSpell = GetFirstSpell & "E": GoTo NextI
        If (AsciiTemp >= -18526 And AsciiTemp <= -18240) Then GetFirstSpell = GetFirstSpell & "F": GoTo NextI
        If (AsciiTemp >= -18239 And AsciiTemp <= -17923) Then GetFirstSpell = GetFirstSpell & "G": GoTo NextI
        If (AsciiTemp >= -17922 And AsciiTemp <= -17418) Then GetFirstSpell = GetFirstSpell & "H": GoTo NextI
        If (AsciiTemp >= -17417 And AsciiTemp <= -16475) Then GetFirstSpell = GetFirstSpell & "J": GoTo NextI
        If (AsciiTemp >= -16474 And AsciiTemp <= -16213) Then GetFirstSpell = GetFirstSpell & "K": GoTo NextI
        If (AsciiTemp >= -16212 And AsciiTemp <= -15641) Then GetFirstSpell = GetFirstSpell & "L": GoTo NextI
        If (AsciiTemp >= -15640 And AsciiTemp <= -15166) Then GetFirstSpell = GetFirstSpell & "M": GoTo NextI
        If (AsciiTemp >= -15165 And AsciiTemp <= -14923) Then GetFirstSpell = GetFirstSpell & "N": GoTo NextI
        If (AsciiTemp >= -14922 And AsciiTemp <= -14915) Then GetFirstSpell = GetFirstSpell & "O": GoTo NextI
        If (AsciiTemp >= -14914 And AsciiTemp <= -14631) Then GetFirstSpell = GetFirstSpell & "P": GoTo NextI
        If (AsciiTemp >= -14630 And AsciiTemp <= -14150) Then GetFirstSpell = GetFirstSpell & "Q": GoTo NextI
        If (AsciiTemp >= -14149 And AsciiTemp <= -14091) Then GetFirstSpell = GetFirstSpell & "R": GoTo NextI
        If (AsciiTemp >= -14090 And AsciiTemp <= -13319) Then GetFirstSpell = GetFirstSpell & "S": GoTo NextI
        If (AsciiTemp >= -13318 And AsciiTemp <= -12839) Then GetFirstSpell = GetFirstSpell & "T": GoTo NextI
        If (AsciiTemp >= -12838 And AsciiTemp <= -12557) Then GetFirstSpell = GetFirstSpell & "W": GoTo NextI
        If (AsciiTemp >= -12556 And AsciiTemp <= -11848) Then GetFirstSpell = GetFirstSpell & "X": GoTo NextI
        If (AsciiTemp >= -11847 And AsciiTemp <= -11056) Then GetFirstSpell = GetFirstSpell & "Y": GoTo NextI
        If (AsciiTemp >= -11055 And AsciiTemp <= -10247) Then GetFirstSpell = GetFirstSpell & "Z": GoTo NextI
NextI:
    Next
End Function

登录后复制

5、关闭VBA编辑器，返回工作表，在辅助列中输入公式：
=GetFirstSpell(A2)（假设A2为第一个中文单元格）。

6、向下填充公式至所有行。

7、选中整个数据区域，包括辅助列。

8、点击“数据”→“排序”，以辅助列“拼音首字母”为主要关键字进行排序。

9、排序完成后可选择隐藏或删除辅助列。