能否在Microsoft Word表格中实现非字母数字日期规则的自定义行排序？

你需要实现的是按内容首次出现顺序分组排序，Word原生排序功能不支持该规则，可通过以下两种方案实现，无需手动添加编号或逐行调整：

方案1：跨Excel辅助操作（无代码门槛） #

• 首先在Word表格需排序列的右侧插入空白辅助列
• 复制需排序的整列内容，粘贴到空白Excel工作表的A列
• 在Excel的B1单元格输入公式 =MATCH(A1,A:A,0)，下拉填充至所有行，该公式会自动提取每个内容首次出现的行号作为排序权重
• 选中B列所有计算结果，右键选择「复制」，回到Word辅助列，右键选择「仅粘贴文本」
• 全选Word表格，点击「开始」选项卡下的「排序」按钮，主关键字选择辅助列，类型设为「数字」、升序，确认排序
• 排序完成后删除辅助列即可

方案2：Word VBA直接处理（无需切换软件） #

如果需要频繁处理同类需求，可直接在Word内运行VBA脚本实现：

1. 选中需要处理的表格内任意位置
2. 按Alt + F11打开VBA编辑器，右键点击左侧当前文档名称，选择「插入」-「模块」
3. 将以下代码粘贴到模块编辑区，按F5运行即可

Sub 按首次出现顺序排序()
    Dim targetTable As Table
    Dim sortColumn As Integer
    Dim orderDict As Object
    Dim rowIndex As Integer
    Dim tempColumn As Column
    Dim content As String
    
    ' 此处修改为你需要排序的列序号，第一列为1
    sortColumn = 1
    Set orderDict = CreateObject("Scripting.Dictionary")
    
    If Selection.Information(wdWithInTable) Then
        Set targetTable = Selection.Tables(1)
        ' 插入临时排序辅助列
        Set tempColumn = targetTable.Columns.Add(targetTable.Columns(sortColumn + 1))
        ' 遍历记录首次出现顺序
        For rowIndex = 1 To targetTable.Rows.Count
            content = Trim(targetTable.Cell(rowIndex, sortColumn).Range.Text)
            ' 去除Word单元格默认的结尾标记符
            content = Left(content, Len(content) - 2)
            If Not orderDict.Exists(content) Then
                orderDict.Add content, orderDict.Count + 1
            End If
            targetTable.Cell(rowIndex, tempColumn.Index).Range.Text = orderDict(content)
        Next
        ' 执行排序
        targetTable.Sort ExcludeHeader:=False, _
        FieldNumber:=tempColumn.Index, _
        SortFieldType:=wdSortFieldNumber, _
        SortOrder:=wdSortOrderAscending
        ' 删除临时辅助列
        tempColumn.Delete
    Else
        MsgBox "请先选中需要处理的表格"
    End If
    
    Set orderDict = Nothing
    Set targetTable = Nothing
End Sub

内容的提问来源于stack exchange，提问作者KevinO