Word 宏：如何在表格排序中排除总行并摆脱错误 5992

Question

我正在使用宏对包含多个表格的 Word 文件中的表格进行排序，效果很好，但也对总行进行了可悲的排序，所有表格都有不同的行数，排序前后的表格是：

表格示例预排序：

后排序：

宏是：（感谢@scenography）

Dim mytable As Table
For Each mytable In ActiveDocument.Tables
mytable.Sort ExcludeHeader:=True, FieldNumber:="Column 2", _
    SortFieldType:=wdSortFieldAlphanumeric,      SortOrder:=wdSortOrderDescending
Next

有什么方法可以做到这一点？

编辑：

这条线可以避免最后一行（总计）吗？示例：

 Dim last_row As Long last_row = Cells.Find(What:="*", SearchDirection:=xlPrevious).Row ) 

或

 lLastRow = rng(rng.Rows.Count, 1).Row

它可能删除最后一列（Cum），因为当排序这个值时它不正确。

这里是一个 Word 文档的链接，其中包含我的表格示例以复制结果

https://drive.google.com/file/d/1KpV11dHjON_gFnlAvlegzc3pWVfYipV4/view?usp=sharing

Answer 1

很遗憾，您不能从 Sort 中排除最后一行，但如果始终是总行，此解决方法将有效。

For i = 1 To ActiveDocument.Tables.Count

Set mytable = ActiveDocument.Tables(i)

mytable.Rows(mytable.Rows.Count).Delete

mytable.Sort ExcludeHeader:=True, FieldNumber:="Column 2", _
    SortFieldType:=wdSortFieldNumeric, SortOrder:=wdSortOrderDescending

mytable.Rows(2).Range.Copy
mytable.Rows.Add
mytable.Rows(mytable.Rows.Count).Range.Paste
mytable.Rows(2).Delete

mytable.Cell(1, mytable.Columns.Count).Select
Selection.SelectColumn
Selection.Cells.Delete ShiftCells:=wdDeleteCellsShiftLeft

Next

基本上我们在排序后将第二行移到最后一行。

表格如下：