Excel排序：按文本、日期、数字或颜色排序数据

在Excel中排序数据是一项常见且简单的操作，可以根据你选择的排序类型重新排列数据。通常，利用内置的排序功能，你可以对一个或多个列中的数字、文本字符串、日期和时间进行排序；你还可以根据自定义列表或单元格格式（如字体颜色、背景色或图标）快速排序。

除了这些基础排序外，日常工作中还会遇到更多实用且复杂的排序需求。本教程将介绍多种不同类型的排序方法，帮助你解决Excel中的排序问题。

在Excel中访问排序选项

Excel提供了多种方式访问排序功能及其相关选项。

1.1 功能区中的排序按钮

最快速应用排序功能的方法是使用功能区中的排序按钮。

点击需要排序的列中的任意单元格，然后点击“数据”选项卡，在“排序和筛选”区域，点击“升序排序”或“降序排序”按钮，即可按字母顺序升序或降序排列数据。见下图：

注意：如果数据区域中存在空行，应用这些按钮后，只有所选单元格所在的连续数据区域（在空行之上或之下）能够被成功排序。

1.2 排序对话框

在“ 数据”选项卡的“排序和筛选”组中，还有一个“排序”按钮，如下图所示：

点击该“排序”按钮后，会弹出一个“排序”对话框，如下图所示：

然后，在“排序”对话框中，你可以根据需要选择相应的排序规则。

提示：你也可以使用快捷键打开此“排序”对话框，请依次按下键盘上的Alt + A + S + S键。

1.3 筛选菜单中的排序选项

如果你已经对数据区域应用了筛选，也可以在筛选选项中找到排序选项。点击任意列的筛选图标，在展开的列表中即可看到排序选项，如下图所示：

注意：这些排序选项会根据列中的数据类型变化：如果列中是文本，则显示“升序排序”、“降序排序”；如果是数字，则显示“从小到大排序”、“从大到小排序”；如果是日期，则显示“从最早到最新排序”、“从最新到最早排序”。

1.4右键菜单中的排序选项

在Excel中，你还可以通过右键菜单快速排序。右键点击需要排序的列中的任意单元格，在快捷菜单中会看到六个排序选项，请选择你需要的方式，见下图：

排序的基本用法

Excel的排序功能可以帮助你完成一些简单的排序操作，例如按升序或降序排列数字、文本字符串、日期，或根据字体颜色、背景色对单元格排序。本节将介绍该排序功能的一些基本用法。

2.1 按文本、数字或日期排序数据

要根据文本、数字或日期对数据区域进行升序或降序排序，请按以下步骤操作：

1.选择需要排序的数据区域，然后点击“ 数据”>“排序”，见下图：

2. 在“排序”对话框中，进行如下操作：

• 在“列”部分，选择你想要排序的列名；
• 在“排序依据”部分，选择“单元格值”选项；
• 在“排序方式”部分，指定排序顺序。（如需对文本排序，请选择“升序”或“降序”；对数字排序，选择“从小到大”或“从大到小”；对日期排序，选择“从最早到最新”或“从最新到最早”。）
• 提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3. 然后，点击“确定”按钮，所选数据将立即按照你指定的列进行排序。

2.2 按单元格颜色、字体颜色、单元格图标排序数据

如果你想根据单元格颜色、字体颜色或条件格式图标对数据区域排序，排序功能可以快速实现此任务。

假设你有一个已设置单元格颜色的数据区域，如下图所示，如果你需要根据单元格颜色重新排列数据，比如将浅红色行排在最上面，然后是浅黄色和浅蓝色行，请按如下方法操作：

1.选择你想要按单元格颜色排序的数据区域，然后点击“数据”>“排序”进入排序对话框。

2. 在“排序”对话框中，指定以下操作：

2.1）设置第一个单元格颜色在顶部，如下：

• 在“列”部分，选择包含有颜色单元格的“名称”或其他列。本例中所有列都有颜色，你可以选择任意列名；
• 在“排序依据”部分，请选择“单元格颜色”选项；
• 在“排序方式”部分，选择你想要放在顶部或底部的单元格颜色；

2.2）然后，点击“添加条件”按钮，添加第二个及其他规则级别，重复上述步骤设置第二个及其他单元格颜色。

• 提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3. 设置完成后，点击“确定”按钮，数据区域将按照你指定的单元格颜色排序，见下图：

提示：按照上述步骤，你也可以通过选择 字体颜色 或 条件格式图标 在排序对话框中进行排序。

2.3 按多列排序数据

如果你有一个较大的数据集，如下图所示，现在你想进行多级数据排序以便更清晰地查看数据，例如先按“区域”列排序，再按“省份”列，最后按“销售额”列排序。如何在Excel中实现多列排序？

要按多列排序数据，请按以下步骤操作：

1.选择你想要排序的数据区域，然后点击“数据”>“排序”进入排序对话框。

2. 在“排序”对话框中，点击两次“添加条件”按钮，因为你需要用到三列进行排序。此时你会看到列表框中添加了两个“然后按”规则级别：

提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3. 在“主要排序”和“然后按”下拉列表中，选择你需要排序的列名，然后分别在“ 排序依据”部分为每个选定的列选择“单元格值”，最后根据需要选择排序顺序。

4. 然后，点击“确定”，即可获得如下图所示的排序结果：

2.4 基于自定义列表排序数据

除了按字母或数字顺序排序外，排序功能还支持自定义列表排序。例如，你希望按“状态”列自定义顺序排序——未开始、进行中、已完成。这里将介绍如何处理此类排序。

1.选择你想要排序的数据区域，然后点击“数据”>“排序”进入排序对话框。

2. 在“排序”对话框中，选择你要排序的列，在“排序依据”部分选择“单元格值”，在“排序方式”部分点击“自定义列表”选项，见下图：

提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3. 此时会弹出“自定义列表”窗口，请进行如下操作：

• 在自定义列表框中点击“新建列表”；
• 在“列表项”框中按你想要的顺序输入文本字符串；（输入时请按回车键分隔每一项。）
• 最后，点击“添加”按钮，新的列表会立即添加到自定义列表框中。

4. 然后，点击“确定”按钮返回排序对话框。新建的自定义列表现在已显示在“排序方式”下拉列表中。

5. 然后，点击“确定”按钮关闭对话框，数据区域将按照你定义的自定义列表排序，见下图：

2.5 从左到右排序数据（横向排序）

通常，你会从上到下对数据表进行纵向排序，但有时你可能希望根据行值（从左到右）进行排序。例如，在下方数据区域中，我希望根据“名称”行的值进行排序。

此时，排序功能内置了从左到右排序的功能。请按以下步骤操作：

1.选择你想要排序的数据区域（不包括标题），然后点击“数据”>“排序”进入排序对话框。

2. 在弹出的“排序”对话框中，点击“选项”按钮，然后在“排序选项”对话框中选择“从左到右排序”，见下图：

3. 点击“确定”返回排序对话框，现在在“行”部分，指定你要根据其排序的行号，然后在“排序依据”部分选择“单元格值”，最后在“排序方式”部分选择你需要的排序顺序，见下图：

4. 然后，点击“确定”，你的数据将如图所示被排序：

2.6 区分大小写排序数据

通常，数据排序不会区分大小写，如下图第一张截图所示。但如果你希望排序时区分大小写，如第二张截图所示，该如何在Excel中实现？

要在Excel中实现区分大小写排序，请按如下操作：

1.选择你想要排序的数据区域，然后点击“数据”>“排序”进入排序对话框。

2. 在“排序”对话框中，在“列”部分指定你要排序的列名，然后在“排序依据”部分选择“单元格值”，最后在“排序方式”部分选择你需要的排序顺序，见下图：

提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3.继续点击该对话框中的“选项”按钮，在“排序选项”提示框中勾选“区分大小写”选项，见下图：

4. 点击“确定”>“确定”关闭对话框，数据将按照区分大小写的顺序排序，相同文本时小写在前，大写在后。见下图：

排序的高级用法

在日常工作中，你可能会遇到更复杂、实用、具体的排序问题，本节将介绍Excel中多种排序任务。

3.1 按出现频率排序数据

假设你有一列数据，现在你想按数据出现的频率降序排序，如下图所示。这里将介绍两种方法来解决此任务。

使用辅助列按出现频率排序数据

在Excel中没有直接按出现次数排序的方法，这里你可以创建一个辅助公式来统计每个文本的出现频率，然后按辅助列排序即可得到所需结果。

1. 在原始数据旁边的空白单元格（如B2）输入以下公式，然后向下拖动填充柄应用公式，见下图：

=COUNTIF($A$2:$A$16,A2)

注意：上述公式中，A2:A16是你想按频率排序的数据列表，A2是该列表的第一个数据。

2. 保持公式单元格选中，然后点击“数据”>“升序排序”或“降序排序”，在弹出的“排序警告”提示框中，选择“扩展选定区域”，见下图：

3. 然后，点击“排序”按钮，原始列将按频率排序，如下图所示：

使用便捷功能按出现频率排序数据

如果你安装了Kutools for Excel，利用其高级排序功能，无需辅助列即可快速按出现频率排序数据。

1.选择你要排序的数据列表，然后点击Kutools Plus > 排序 > 高级排序，见下图：

2. 在高级排序对话框中，选择你要排序的列，在“ 排序依据”下拉列表中选择“出现频率”，最后在“排序方式”部分指定排序顺序，见下图：

提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3. 然后，点击“确定”按钮，数据列表会立即按出现次数排序，见下图：

3.2 按字符长度排序数据

如果你有一个包含不同长度文本字符串的数据列表，现在你可能需要按字符长度排序，以使列看起来整齐。本节将介绍如何按字符数排序数据。

使用辅助列按字符长度排序数据

要按字符长度排序一列数据，应使用LEN函数计算每个单元格的字符数，然后应用排序功能对数据列表排序，请按以下步骤操作：

1. 在原始数据旁边的空白单元格（如B2）输入公式=LEN(A2)，然后向下拖动填充柄应用公式，见下图：

2. 保持公式单元格选中，然后点击“数据”>“升序排序”或“降序排序”，在弹出的“排序警告”提示框中，选择“扩展选定区域”，见下图：

3. 然后，点击“排序”按钮，字符串已按字符长度排序。你可以根据需要删除辅助B列。见下图：

使用简便选项按字符长度排序数据

要快速按字符数排序数据，这里推荐一款实用工具—— Kutools for Excel，利用其高级排序功能，你可以轻松完成此任务。

1.选择你要排序的数据列表，然后点击Kutools Plus > 排序 > 高级排序。

2. 在高级排序对话框中，在“列”部分选择要排序的列，在“ 排序依据”下拉列表中选择“文本长度”，最后在“排序方式”部分指定所需排序顺序。见下图：

提示：如果你的数据包含标题，请确保勾选“数据包含标题”。如果没有标题，请取消勾选。

3. 然后，点击“ 确定”按钮，列表中的文本字符串已按字符长度排序，如下图所示：

3.3 按姓氏排序全名

在对全名列表排序时，Excel默认按名字首字母排序，但如果你想按姓氏排序，该如何操作？这里将介绍几种在Excel中轻松按姓氏排序全名的小技巧。

使用辅助列按姓氏排序全名

要按姓氏排序全名，应先将姓氏提取到新列，然后使用排序功能按姓氏字母顺序排列全名。请按以下步骤操作：

1. 在原始数据旁边的空白单元格（如B2）输入或复制以下公式，然后向下拖动填充柄应用公式，见下图：

=RIGHT(A2,LEN(A2)-FIND("@",SUBSTITUTE(A2," ","@",LEN(A2)-LEN(SUBSTITUTE(A2," ","")))))

2.继续选中公式单元格，然后点击“数据”>“ 升序排序”或“降序排序”，在弹出的“排序警告”提示框中，选择“扩展选定区域”，见下图：

3. 然后，点击“排序”按钮，你会得到按姓氏排序的全名，完成后可根据需要删除辅助列。见下图：

使用快捷方法按姓氏排序全名

如果你不熟悉公式，想要无需公式按姓氏排序全名，可以使用Kutools for Excel的高级排序功能轻松实现。

1.选择你要排序的全名单元格，然后点击Kutools Plus > 排序 >高级排序。

2. 在高级排序对话框中，在“列”部分选择要排序的列，在“排序依据”下拉列表中选择“ 姓”，最后在“排序方式”部分指定所需排序顺序。见下图：

提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3. 然后，点击“确定”按钮，全名列会立即按姓氏排序。

3.4 按邮箱域名排序邮箱地址

如果你有一组邮箱地址需要按域名而不是按地址首字母排序，如何在Excel中实现？本节将介绍几种按域名排序邮箱地址的快捷方法。

使用辅助列按域名排序邮箱地址

你可以创建公式将邮箱域名提取到另一列，然后根据新域名列对原邮箱地址排序。

1. 在邮箱地址旁边的空白单元格（如C2）输入以下公式，然后拖动填充柄应用公式到需要的范围。所有邮箱域名将被提取出来，见下图：

=RIGHT(B2,LEN(B2)-FIND("@",B2))

2. 保持公式单元格选中，然后点击“数据”>“升序排序”或“降序排序”，在“排序警告”对话框中勾选“扩展选定区域”，见下图：

3. 然后，点击“排序”按钮，即可按邮箱域名升序或降序排序数据。

4. 排序后，可以根据需要删除辅助列。

几步操作按域名排序邮箱地址

如果你安装了Kutools for Excel，利用其高级排序功能，可以仅需几步操作按邮箱域名字母顺序排序邮箱地址。

1.选择你要排序的整个数据区域，然后点击Kutools Plus > 排序 > 高级排序。

2. 在高级排序对话框中，在“列”部分选择要排序的列，在“排序依据”下拉列表中选择“邮箱域名”，最后在“排序方式”部分指定所需排序顺序。见下图：

提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3. 点击“确定”，数据区域将按邮箱域名排序，如下图所示：

3.5 将一列排序以匹配另一列

如果你有两列数据，内容完全相同或几乎相同，但顺序不同，现在你可能需要将两列排序，使相同的值在两列中对齐。本节将介绍两种此类排序的情况。

将两列完全相同的项目进行匹配排序

例如，我有两列包含相同项目但顺序不同，现在我想将第二列排序以匹配第一列，如下图所示。

1. 在原始数据旁边的空白单元格输入以下公式，然后拖动填充柄应用公式到列表所有单元格，这将返回B列每个值在A列中的位置，见下图：

=MATCH(B2,$A$2:$A$10,0)

2. 然后，选择B列和新辅助列，点击“数据”>“排序”进入排序对话框，在排序对话框中进行如下操作：

• 在“列”部分选择你要根据其排序的辅助列；
• 然后，在“排序依据”部分选择“ 单元格值”；
• 最后，在“排序方式”部分选择“从小到大”；

3. 然后，点击“确定”按钮。现在，你会得到两列完全匹配的结果，如下图所示。可根据需要删除公式列。

将两列不完全相同的项目进行匹配排序

有时，两列中的项目可能并不完全相同。例如，我想将第二列的数据排序以匹配第一列，使相同值在两列中对齐，如下图所示。

1. 在两列之间插入一个新的空白列。

2. 在B2单元格输入以下公式，然后拖动填充柄填充需要的单元格。现在你会看到C列的数据已排序以匹配A列的数据。

=IF(ISNA(MATCH(A2,$C$2:$C$8,0)),"",INDEX($C$2:$C$8,MATCH(A2,$C$2:$C$8,0)))

3.6 从数据列表中排序并提取唯一值

如果你有一个包含重复值的数据列表，现在只想提取唯一值并按字母顺序排序，如下图所示，这里将介绍几种处理此类排序的公式。

1. 在空白单元格（如C2）输入以下公式，然后按Ctrl + Shift + Enter组合键获取第一个结果，见下图：

=IFERROR(INDEX($A$2:$A$12,MATCH(0,COUNTIF($A$2:$A$12,"<"&$A$2:$A$12)-SUM(COUNTIF($A$2:$A$12,"="&C$1:C1)),0)),"")

注意：公式中，A2:A12是你要提取唯一值的数据列表，C1是公式上方的单元格。请根据实际情况修改。

2. 然后拖动填充柄提取值，直到出现空白单元格，所有唯一值将被提取并按升序排序，见下图：

3.7 一次独立排序多行或多列

我们很容易根据一行或一列对数据区域排序，但有时你可能希望对区域内每一行或每一列分别按字母顺序独立排序，如何在Excel中实现？

分别独立排序多行

假设你有一组数据，需要将每一行按字母顺序重新排列，如下图所示，以下提供两种快速方法。

使用公式一次独立排序多行

1. 将行标签复制到你想要获得排序结果的位置。

2. 然后，在空白单元格（如H2）输入以下公式，并同时按Ctrl + Shift + Enter组合键获取第一个结果，见下图：

=INDEX($B2:$E2, MATCH(COLUMNS($B2:B2), COUNTIF($B2:$E2, "<="&$B2:$E2),0))

3.选中公式单元格H2，向右拖动填充柄复制公式到第一行的其他单元格，本例拖到K2，见下图：

4.继续选中第一行的公式单元格（H2:K2），向下拖动填充柄复制公式到其他行。现在你会看到每一行的值都已独立按升序排序。

使用VBA代码一次独立排序多行

以下VBA代码也可以帮助你轻松按字母顺序排序每一行数据。请按以下步骤操作：

1.选择你想要在每一行排序的数据。

2. 按住 ALT + F11键打开Microsoft Visual Basic for Applications窗口。

3. 然后，点击 插入 > 模块，并将以下代码粘贴到模块窗口。

VBA代码：一次独立排序多行

Sub SortIndividualR()
'Updateby Extendoffice
    Dim xRg As Range, yRg As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRg = Selection
    If xRg.Count = 1 Then
        MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    Application.ScreenUpdating = False
    For Each yRg In xRg.Rows
        yRg.Sort Key1:=yRg.Cells(1, 1), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows
    Next yRg
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    Application.ScreenUpdating = True
End Sub

4. 然后，按 F5键运行代码，每一行的数据会立即按升序排序，见下图：

分别独立排序多列

要分别独立排序每一列数据，以下两种方法可以帮你实现。

使用公式一次独立排序多列

1. 将列标签复制到你想要获得排序结果的位置。

2. 然后，在空白单元格（如F3）输入以下公式，并同时按Ctrl + Shift + Enter组合键获取第一个结果，然后向下拖动填充柄复制公式到其他行，见下图：

=INDEX(A$3:A$6,MATCH(ROWS(A$3:A3),COUNTIF(A$3:A$6,"<="&A$3:A$6),0))

3.继续选中第一列的公式单元格（F3:F6），向右拖动填充柄复制公式到其他列。现在每一列的值都已独立按升序排序，如下图所示：

使用VBA代码一次独立排序多列

要分别独立排序多列数据，以下VBA代码也可以帮你实现，请按如下操作：

1. 按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 然后，点击插入 > 模块，并将以下代码粘贴到模块窗口。

VBA代码：一次独立排序多列

Sub SortIndividualJR()
'Updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each yRg In xRg
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=yRg, Order:=xlAscending
            .SetRange ws.Range(yRg, yRg.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next yRg
    Application.ScreenUpdating = True
End Sub

3. 然后，按F5键运行代码，会弹出提示框，请选择你要排序的数据区域，见下图：

4. 然后，点击“确定”，每一列会被快速独立排序。

3.8 在Excel中随机排序数据

我们通常会按字母顺序升序或降序排序数据，但你是否尝试过在选定区域内随机排序数据？本节将介绍如何将一组单元格随机打乱顺序。

使用辅助列随机排序一列数据

通常，你可以使用RAND函数生成随机数，然后根据该随机列表对数据排序，请按如下操作：

1. 在数据旁边的空白单元格输入公式：=RAND()，然后向下拖动填充柄生成一列随机数，如下图所示：

2. 保持公式单元格选中，然后点击“数据”>“升序排序”或“降序排序”，在弹出的“排序警告”提示框中，选择“扩展选定区域”，见下图：

3. 然后，点击“排序”按钮，数据列表会立即被随机打乱，见下图：

使用强大功能随机排序单元格、行或列

Kutools for Excel提供了强大的“随机排序”功能，利用此功能，你可以对选区内的数据、每一列/行、或整行/整列进行随机排序。

1.选择你要随机排序的数据区域，然后点击Kutools Plus > 排序 > 随机排序。见下图：

2. 在“随机排序或选择”对话框的“排序”选项卡下，选择你需要的以下任一选项：

• 整行：将选定区域内的整行随机打乱顺序。
• 整列：将选定区域内的整列随机打乱顺序。
• 每一行的单元格：分别随机打乱每一行内的单元格。
• 每一列的单元格：分别随机打乱每一列内的单元格。
• 选区内的所有单元格：将选定区域内的所有单元格随机排序。

3. 然后，点击“确定”按钮，数据会立即被随机排序。

3.9 按月、日或月和日对日期列表排序

在Excel中对日期排序时，排序功能默认按年、月、日排序，但在某些情况下，你可能需要仅按月、日或月和日（忽略年份）排列日期。如何在Excel中实现？

使用辅助列按月或日对日期列表排序

要仅按月或日排序日期，可以先从日期中提取月份或日期数字，然后根据提取出的列排序。

1. 在数据旁边的空白单元格输入以下公式，然后向下拖动填充柄复制公式到其他单元格，见下图：

=MONTH(B2) （提取月份数字）
=DAY(B2) （提取日期数字）

2. 得到月份或日期数字后，保持公式单元格选中，然后点击“数据”>“升序排序”或“ 降序排序”，在弹出的“排序警告”提示框中，选择“扩展选定区域”，见下图：

3. 然后，点击“排序”按钮，日期现在已按月份排序，忽略年份和日期。见下图：

几步操作按月或日对日期列表排序

如果你安装了Kutools for Excel，利用其 高级排序功能，可以仅需几步操作按月或日对日期列表排序。

1.选择你要排序的数据区域，然后点击Kutools Plus > 排序 > 高级排序。

2. 在高级排序对话框中，在“列”部分选择要排序的列，在“排序依据”下拉列表中选择“月”或 “日”，最后在“排序方式”部分指定所需排序顺序。

提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3. 然后，点击“ 确定”按钮，数据已按你指定的月份或日期排序，忽略年份，见下图：

使用辅助列按月和日对日期列表排序

如果你需要仅按月和日（不含年份）对日期列表排序，可以使用TEXT函数将日期转换为指定格式的文本字符串，然后应用排序功能。

1. 在数据旁边的空白单元格输入以下公式，然后向下复制公式至数据底部，月份和日期已被提取为文本字符串，如下图所示：

=TEXT(B2,"MMDD")

2. 保持公式单元格选中，然后点击“ 数据”>“升序排序”或“降序排序”，在弹出的“排序警告”提示框中，选择“扩展选定区域”，见下图：

3. 然后，点击“排序”按钮，现在你的数据已仅按月和日排序。

3.10 按星期几对日期列表排序

要按星期几对日期列表排序，即按星期一到星期日或星期日到星期六排序。本节将介绍两种在Excel中完成此任务的方法。

使用辅助列按星期几对日期列表排序

按星期几排序日期时，也需要一个辅助列返回对应的星期数字，然后按辅助列排序。

1. 在空白单元格输入或复制以下公式，然后向下拖动填充柄复制公式到其他单元格，见下图：

=WEEKDAY(B2) （星期日(1)到星期六(7)）
=WEEKDAY(B2,2) （星期一(1)到星期日(7)）

2. 保持公式单元格选中，然后点击“数据”>“升序排序”或“降序排序”，在弹出的“排序警告”提示框中，选择“扩展选定区域”，见下图：

3. 然后，点击“排序”按钮，即可得到所需的排序结果，见下图：

使用简便选项按星期几对日期列表排序

借助 Kutools for Excel的高级排序功能，无需辅助公式即可快速解决此问题。

1.选择你要排序的数据区域，然后点击Kutools Plus > 排序 >高级排序。

2. 在高级排序对话框中，在“列”部分选择要排序的列，在“排序依据”下拉列表中选择“星期几”，最后在“排序方式”部分指定所需排序顺序。

提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3. 然后，点击“确定”按钮，数据已按星期几排序，见下图：

3.11 按季度对日期列表排序

本节将介绍如何按季度（忽略年份）对日期列表排序，并提供两种方法。

使用辅助列按季度对日期列表排序

与上述方法类似，应创建辅助列从给定日期中提取季度数字，然后根据新辅助列排序。

1. 在空白单元格输入或复制以下公式，然后向下拖动填充柄复制公式到其他单元格，见下图：

=ROUNDUP(MONTH(B2)/3,0)

2. 保持公式单元格选中，然后点击“数据”>“升序排序”或“降序排序”，在弹出的“排序警告”提示框中，选择“扩展选定区域”，见下图：

3. 然后，点击“ 排序”按钮，数据区域已按季度排序，如下图所示：

使用便捷功能按季度对日期列表排序

如果你安装了 Kutools for Excel，高级排序功能可以帮助你几步完成此任务。

1.选择你要排序的数据区域，然后点击Kutools Plus > 排序 > 高级排序。

2. 在高级排序对话框中，在“列”部分选择要排序的列，在“排序依据”下拉列表中选择“季度”，最后在“排序方式”部分指定所需排序顺序。

提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3. 最后，点击“确定”按钮，所选区域已按季度排序。

3.12 按月份名称或星期名称排序数据

如果你有一组以文本形式显示的月份名称，排序时会按字母顺序排列，而不是从1月到12月的月份顺序。如果需要按1月到12月顺序排序月份名称，可以在排序功能中使用自定义排序。

1.选择你要按月份名称排序的数据区域，然后点击“数据”>“排序”进入排序对话框。

2. 在 排序对话框中，在 列部分选择包含月份名称的列名，在 排序依据部分选择 单元格值，最后在 排序方式部分选择 自定义列表，见下图：

提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3. 在弹出的自定义列表对话框中，根据工作表中月份的显示方式，选择完整月份名称（1月、2月、3月……）或缩写（Jan, Feb, Mar…），见下图：

4. 然后，点击“确定”>“确定”关闭对话框，现在你的数据已按月份名称的时间顺序排序，如下图所示：

提示：如需按星期名称排序，在自定义列表对话框中选择完整星期名称（星期日、星期一、星期二……）或缩写（Sun, Mon, Tue…）。

3.13 按奇偶数排序数据

我们在Excel中很容易按升序或降序排序数字，但你是否尝试过将数字按奇数到偶数或偶数到奇数排序？本节将介绍几种实现此任务的方法。

使用辅助列按奇偶数排序数据

要按奇偶数排序数字列表，应创建公式识别奇数或偶数，然后应用排序功能。

1. 在数字列表旁边的空白单元格输入公式=ISODD(A2)，然后向下拖动复制公式，现在你会看到TRUE和FALSE，TRUE表示奇数，FALSE表示偶数。

2. 保持公式单元格选中，然后点击“数据”>“升序排序”或“降序排序”，在弹出的“排序警告”提示框中，选择“扩展选定区域”，见下图：

3. 然后点击 “排序”按钮，所有偶数会被排序在一起，后面是奇数，或反之。见下图：

使用实用功能按奇偶数排序数据

借助Kutools for Excel的高级排序功能，你可以快速将数字从奇数到偶数或偶数到奇数排序。

1.选择你要排序的数据区域，然后点击Kutools Plus > 排序 > 高级排序。

2. 在高级排序对话框中，在“列”部分选择要排序的列，在“排序依据”部分选择“奇偶数”，然后指定排序顺序（A到Z为偶数到奇数，Z到A为奇数到偶数），见下图：

提示：如果你的数据包含标题，请确保勾选“数据包含标题”选项。如果没有标题，请取消勾选。

3. 然后点击“确定”按钮，即可得到如下结果：

3.14 按绝对值排序数据

如果一列中既有正数也有负数，默认排序时会按升序或降序排列。但有时你可能希望忽略负号，仅按绝对值排序。如何在Excel中实现？

使用辅助列按绝对值排序数据

要按绝对值排序数字，通常应先用公式将所有值转换为绝对值，然后应用排序功能。

1. 在相邻空白单元格（如B2）输入公式=ABS(A2)，然后向下拖动填充柄复制公式到其他单元格。现在你会看到所有值都已转换为绝对值：

2. 保持公式单元格选中，然后点击“数据”>“ 升序排序”或“降序排序”，在弹出的“排序警告”提示框中，选择“扩展选定区域”，见下图：

3. 然后点击“排序”按钮，所有数字已按绝对值排序，如下图所示：

使用便捷选项按绝对值排序数据

如果你不想创建辅助列，这里推荐Kutools for Excel，利用其高级排序功能，可以直接按绝对值排序数字，操作简单。

1.选择你要排序的数据区域，然后点击Kutools Plus > 排序 > 高级排序。

2. 在高级排序对话框中，在列部分选择要排序的列，在排序依据部分选择绝对值，然后指定排序顺序，见下图：

提示：如果你的数据包含标题，请确保勾选“数据包含标题”。如果没有标题，请取消勾选。

3. 然后，点击“确定”，所有数字将按绝对值从小到大或从大到小排序，忽略负号。

输入或更改数据时自动排序数据

Excel中的排序功能不是动态的，每次更改数据或添加新数据后都需要重新排序。本节将介绍如何在每次数据区域新增或更改值时自动排序。

4.1 使用公式自动排序列中的数值

要自动按升序或降序排序数字列表，可以基于LARGE、SMALL和ROW函数使用公式。

1. 在源数据旁边的空白单元格输入或复制以下公式，然后向下拖动填充柄应用公式，数字将按从小到大的顺序排列，见下图：

=IFERROR(SMALL($A$2:$A$100,ROWS(B$2:B2)),"")

注意：此公式中，A2:A100是你要自动排序的数字列表，包含一些空单元格用于新输入，B2是输入公式的单元格。

2.现在，当更改源数据或输入新数据时，排序列表会自动刷新，如下演示所示：

4.2 使用公式自动排序列中的文本值

如果你想自动排序列中的文本值，上述公式无效，这里可用另一种公式，请按如下操作：

1. 在数据列旁边的空白单元格输入或复制以下公式，然后同时按Ctrl + Shift + Enter组合键获取第一个文本，再选中公式单元格，向下拖动填充柄排序所需单元格，见下图：

=IFERROR(INDEX($A$2:$A$100,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$100,">="&$A$2:$A$100),0)),"")

2. 从现在起，在A列输入或更改原始数据时，B列的文本字符串会自动按升序排序，如下演示：

4.3 使用VBA代码自动排序列中混合的数值和文本

如果一列中既有数字又有文本，要自动排序数据列表，可使用以下VBA代码。

1.右键点击要自动排序的工作表标签，然后选择“查看代码”，在弹出的Microsoft Visual Basic for Applications窗口中，将以下代码粘贴到空白模块窗口，见下图：

VBA代码：输入或更改数据时自动升序排序：

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    On Error Resume Next
    If Application.Intersect(Target, Application.Columns(1)) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
                                        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

注意：上述代码中，输入的数据会自动在A列排序。A1为标题，A2为数据列表的首个单元格。

2. 然后，保存并关闭代码窗口。现在，在A列输入新数据或更改原始数据时，数据会自动按升序排序。如下演示：

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    On Error Resume Next
    If Application.Intersect(Target, Application.Columns(1)) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Range("A1").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes, _
                                        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

其他排序场景

在日常工作中，你可能还会遇到其他各种排序需求。本节将介绍其他排序类型，如单元格内排序、反向排序列或行中的数据等。

5.1 在单元格内排序数据

要在单个单元格内按字母顺序排序文本字符串，例如将“HDAW”排序为“ADHW”；或将单元格内用逗号分隔的多个单词排序，如将“word, outlook, excel, access”排序为“access, excel, outlook, word”。本节将介绍如何在Excel中解决此类排序。

按字母顺序对单元格内的字符串值排序

要在单元格内按字母顺序排序字符串值，应创建用户自定义函数。请按如下操作：

1. 按住ALT + F11键打开 Microsoft Visual Basic for Applications窗口。

2. 点击 插入 > 模块，并将以下代码粘贴到模块窗口。

VBA代码：按单元格内文本值排序

Function SortCellContents(xRange As Range)
'Updateby Extendoffice
Dim xArr
Dim xF1, xF2 As Integer
Dim xStrValue As String
Dim xStrT As String
If xRange.Count <> 1 Then
    Exit Function
End If
xStrValue = xRange.Value
ReDim xArr(1 To Len(xStrValue))
For xF1 = 1 To UBound(xArr)
    xArr(xF1) = Mid(xStrValue, xF1, 1)
Next
For xF1 = 1 To UBound(xArr)
    For xF2 = xF1 To UBound(xArr)
        If Asc(xArr(xF2)) < Asc(xArr(xF1)) Then
            xStrT = xArr(xF2)
            xArr(xF2) = xArr(xF1)
            xArr(xF1) = xStrT
        End If
    Next xF2
Next xF1
SortCellContents = Join(xArr, "")
End Function

3. 保存并关闭代码，返回工作表。然后，在空白单元格输入公式=SortCellContents(A2)，向下拖动填充柄复制公式到其他单元格，所有单元格内的文本值将按字母顺序排序，见下图：

按字母顺序对单元格内以分隔符分隔的文本字符串排序

如果单元格内有多个用特定分隔符分隔的单词，要在单元格内按字母顺序排序，可使用以下用户自定义函数。

1. 按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 点击 插入 > 模块，并将以下代码粘贴到模块窗口。

VBA代码：按单元格内逗号分隔的文本字符串排序

Function SortCellWithSeparator(CellAddress As Range, DelimiterChar As String, IncludeSpaces As Boolean) As String
'Updateby Extendoffice
Dim xRg As Range
Dim xString As String
Dim xF1, xF2 As Integer
Dim xSArr
Dim xStrT As String
Dim xStrValue As String
Set xRg = CellAddress
xStrValue = WorksheetFunction.Substitute(xRg.Value, " ", "")
xSArr = Split(xStrValue, DelimiterChar)
    For xF1 = 0 To UBound(xSArr)
        For xF2 = xF1 + 1 To UBound(xSArr)
                If xSArr(xF2) < xSArr(xF1) Then
                    xStrT = xSArr(xF2)
                    xSArr(xF2) = xSArr(xF1)
                    xSArr(xF1) = xStrT
                End If
        Next xF2
    Next xF1
xStrValue = ""
For xF1 = 0 To UBound(xSArr)
    xStrValue = xStrValue & xSArr(xF1) & DelimiterChar
Next xF1
SortCellWithSeparator = xStrValue
SortCellWithSeparator = Left(SortCellWithSeparator, Len(SortCellWithSeparator) - 1)
If IncludeSpaces = True Then SortCellWithSeparator = WorksheetFunction.Substitute(SortCellWithSeparator, ",", ", ")
End Function

3. 保存并关闭代码，返回工作表，在空白单元格输入公式 =SortCellWithSeparator(A2,",",TRUE)，然后向下拖动填充柄复制公式到其他单元格，所有单元格内的文本字符串将按字母顺序排序，见下图：

注意：如果你的文本字符串由其他分隔符分隔，只需将公式中的逗号替换为你自己的分隔符即可。

5.2反转/翻转列或行中的数据顺序

有时你可能需要将垂直数据区域上下反转，或将水平数据区域从左到右反转。本节将介绍三种在Excel中解决此任务的方法。

使用公式反转/翻转列或行中的数据顺序

以下公式可帮助你反转列或行中的数据顺序，请按如下操作：

反转列中的数据顺序

在你想要放置结果的空白单元格输入或复制以下公式，然后向下拖动填充柄，返回反转顺序的单元格值，见下图：

=OFFSET($A$10,-(ROW(A1)-1),0)

注意：上述公式中，A1为首个单元格，A10为该列最后一个单元格。

反转行中的数据顺序

应用以下公式可将行内数据水平反转：

=OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),)

注意：上述公式中，A1为该行首个单元格，1:1为数据所在行号。如果数据在第10行，应改为10:10。

然后，向右拖动填充柄，直到所有值被提取，你会得到所有数据已水平反转，见下图：

使用VBA代码反转/翻转多列或多行中的数据顺序

上述公式仅适用于单列或单行，如果有多列或多行需要反转，可使用以下VBA代码。

垂直反转一组单元格的数据顺序

1. 首先，备份原始数据，然后按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 点击插入 > 模块，并将以下代码粘贴到模块窗口。

VBA代码：垂直反转一组单元格顺序

Sub Flipvertically()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For j = 1 To UBound(Arr, 2)
    k = UBound(Arr, 1)
    For i = 1 To UBound(Arr, 1) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(k, j)
        Arr(k, j) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

3. 然后，按F5键运行代码，会弹出提示框让你选择要垂直反转的数据区域，见下图：

4. 然后，点击“确定”按钮，数据区域会被垂直反转，如下图所示：

水平反转一组单元格的数据顺序

要水平反转数据区域，请应用以下VBA代码：

VBA代码：垂直反转一组单元格顺序

Sub Fliphorizontally()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

运行代码后，行内数据已被水平反转，如下图所示：

仅需一次点击即可反转/翻转列或行中的数据顺序

如果你安装了Kutools for Excel，利用其“垂直翻转选区”和“水平翻转选区”功能，只需一次点击即可垂直或水平反转单元格区域。

垂直反转一组单元格的数据顺序

1.选择你要反转的数据区域，然后点击Kutools > 区域 > 垂直翻转选区 > 全部 / 仅翻转内容，见下图：

提示：选择“全部”选项时，所有单元格格式也会被反转；选择“仅翻转内容”时，仅单元格内容会被反转。

2. 然后，数据区域会立即被垂直反转。

水平反转一组单元格的数据顺序

1.选择数据区域，然后点击Kutools > 区域 > 水平翻转选区 > 全部/仅翻转内容，见下图：

提示：选择“全部”选项时，所有单元格格式也会被反转；选择“仅翻转内容”时，仅单元格内容会被反转。

2. 然后，选区内所有单元格内容会立即被水平反转，如下图所示：

5.3 在Excel中按字母顺序或标签颜色排序工作表标签

假设你的工作簿中有大量工作表，如果需要按字母顺序或标签颜色排序工作表标签，常规方法——拖动工作表标签会非常耗时。本节将介绍几种按升序或降序排列工作表标签的技巧。

使用VBA代码按字母顺序排序工作表标签

以下VBA代码可帮助你按升序或降序字母顺序排序工作表标签，请按如下操作：

1. 按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 点击插入 > 模块，然后将以下宏粘贴到模块窗口。

VBA：按字母顺序排序所有工作表

Sub SortWorkBook()
'Updateby Extendoffice
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Click Yes to sort sheets in ascending order;" & Chr(10) & "Click No will sort in descending order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub

3. 然后，按F5键运行宏，在弹出的提示框中，点击“是”则所有工作表按升序字母顺序排序；点击“ 否”则按降序字母顺序排序。

使用强大功能按字母/字母数字顺序排序工作表标签

Kutools for Excel提供了强大的“排序所有表”功能，利用此功能，你可以按字母或字母数字顺序排序工作表，按标签颜色排序，或反转工作表标签。

1. 打开你要排序工作表标签的工作簿，然后点击Kutools Plus > 工作表 > 排序所有表，见下图：

2. 在排序所有表对话框中，在右侧选择你需要的排序类型，如字母排序、精准排序。见下图：

3. 然后，点击“确定”按钮，所有工作表会根据你指定的排序类型排序。见下图：

使用VBA代码按标签颜色排序工作表标签

我们通常会在Excel中按字母顺序排序工作表标签，但你是否尝试过按标签颜色排序？以下VBA代码可帮助你解决此问题，请按如下操作：

1. 按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 点击插入 > 模块，然后将以下宏粘贴到模块窗口。

VBA：按标签颜色排序所有工作表

Sub SortWorkBookByColor()
'Updateby20140624
Dim xArray1() As Long
Dim xArray2() As String
Dim n As Integer
Application.ScreenUpdating = False
If Val(Application.Version) >= 10 Then
    For i = 1 To Application.ActiveWorkbook.Worksheets.Count
        If Application.ActiveWorkbook.Worksheets(i).Visible = -1 Then
            n = n + 1
            ReDim Preserve xArray1(1 To n)
            ReDim Preserve xArray2(1 To n)
            xArray1(n) = Application.ActiveWorkbook.Worksheets(i).Tab.Color
            xArray2(n) = Application.ActiveWorkbook.Worksheets(i).Name
        End If
    Next
    For i = 1 To n
        For j = i To n
            If xArray1(j) < xArray1(i) Then
                temp = xArray2(i)
                xArray2(i) = xArray2(j)
                xArray2(j) = temp
                temp = xArray1(i)
                xArray1(i) = xArray1(j)
                xArray1(j) = temp
            End If
        Next
    Next
    For i = n To 1 Step -1
        Application.ActiveWorkbook.Worksheets(CStr(xArray2(i))).Move after:=Application.ActiveWorkbook.Worksheets(Application.ActiveWorkbook.Worksheets.Count)
    Next
End If
Application.ScreenUpdating = True
End Sub

3. 然后，按F5键执行代码，相同标签颜色的工作表会被排序在一起。见下图：

使用强大功能按标签颜色排序工作表标签

利用Kutools for Excel的“排序所有表”功能，也可以快速按标签颜色排序工作表标签。

1. 点击Kutools Plus > 工作表 > 排序所有表进入排序所有表对话框，在排序所有表对话框右侧点击“颜色排序”按钮，见下图：

2. 然后，点击“确定”按钮，相同标签颜色的工作表会被排列在一起，如下图所示：