能否用Microsoft Word VBA按指定规则排序多列表格（无需Excel）

需求说明 #

需要对Word多列表格执行以下排序逻辑：

• 第一列相同值的行归为一组
• 第二列保持原始行的相对顺序，不进行字母/数字排序

排序前表格 #

排序后表格 #

问题背景 #

此前在2021年已通过Word VBA实现单列表格的类似排序（无需依赖Excel），但处理多列表格时，第一列可正常分组，第二列却会被自动排序，无法满足需求。

VBA解决方案 #

核心思路是通过添加隐藏的「原始顺序标记列」，让排序逻辑先按第一列分组，再按原始顺序排序，从而保留第二列的原有顺序。代码如下：

Sub SortTableKeepSecondColumnOrder()
    Dim tbl As Table
    Dim i As Integer
    
    ' 获取目标表格：优先选中的表格，否则取文档第一个表格
    If Selection.Information(wdWithInTable) Then
        Set tbl = Selection.Tables(1)
    Else
        Set tbl = ActiveDocument.Tables(1)
    End If
    
    ' 添加隐藏列，用于记录每行的原始顺序
    tbl.Columns.Add Before:=tbl.Columns(1)
    tbl.Columns(1).Width = 0 ' 设置列宽为0实现隐藏
    
    ' 为每行（跳过表头）添加原始顺序编号
    For i = 2 To tbl.Rows.Count
        tbl.Cell(i, 1).Range.Text = CStr(i - 1)
    Next i
    
    ' 执行排序：先按原第一列（现第二列）分组，再按隐藏顺序列排序
    With tbl.Sort
        .FieldNumber = 2
        .SortOrder = wdSortOrderAscending
        .FieldNumber2 = 1
        .SortOrder2 = wdSortOrderAscending
        .Header = wdYes
        .Apply
    End With
    
    ' 删除隐藏的顺序列
    tbl.Columns(1).Delete
End Sub

代码执行步骤 #

1. 选中需要排序的表格（若未选中，默认处理文档第一个表格）
2. 插入隐藏列并为每行标记原始顺序编号
3. 按「原第一列升序 + 隐藏顺序列升序」执行排序，确保同组内行保持原始顺序
4. 删除隐藏列，得到最终结果

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