借助Excel实现Word表格快速排序

原创

已于 2024-11-16 01:17:57 修改

· 780 阅读

2 ·

版权

文章标签：

#Word表格 #表格排序 #Word排序 #排序 #随机排序

于 2024-11-15 12:27:33 首次发布

实例需求：Word中的表格如下图所示，为了强化记忆，希望能够将表格内容随机排序，表格第一列仍然按照顺序编号，即编号不跟随表格行内容调整。

在这里插入图片描述

乱序之后的效果如下图所示（每次运行代码的结果都不一定相同）。

在这里插入图片描述

示例代码如下。

Sub SortTab()
    Dim oTab As Table, aData, sTxt As String
    Set oTab = ActiveDocument.Tables(1)
    Dim oRow As Row, oCell As Cell, iR As Long, iC As Long
    ReDim aData(1 To oTab.Rows.Count, 1 To oTab.Columns.Count)
    Randomize
    For Each oRow In oTab.Rows
        iR = iR + 1: iC = 0
        For Each oCell In oRow.Cells
            iC = iC + 1
            If iC = 1 Then
                aData(iR, iC) = Rnd() * 10000
            Else
                sTxt = oCell.Range.Text
                aData(iR, iC) = Left(sTxt