VBA对表进行排序并忽略总行

Question

我有Table3的范围如下图：

这些行不是固定的，可能会增加或减少，因此我将其创建为表 Table3 以适应这种行为，并且我可以在 VBA 中将其用作 ListObjects。

下面的 VBA 用于对表格进行排序，但是由于 Totals 是范围的一部分，因此排序无法按预期工作。

子排序（） ActiveWorkbook.Worksheets("Project 2013").ListObjects("Table3").sort.SortFields _ 。清除 ActiveWorkbook.Worksheets("Project 2013").ListObjects("Table3").sort.SortFields _ .Add Key:=Range("Table3[Description3]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal 使用 ActiveWorkbook.Worksheets("Project 2013").ListObjects("Table3").sort .Header = xl是 .MatchCase = 假 .Orientation = xlTopToBottom .SortMethod = xlPinYin 。申请 结束于 结束子

在应用排序之前，有人可以帮助修改代码以忽略Totals 行（即仅包括header 以下和Totals 行以上的范围）

编辑

目前，这是我尝试重新定义没有最后一行的新范围

子排序（） Dim resizedTable As ListObject 设置 resizedTable = Sheets("Sheet1").ListObjects("Table1") 使用 resizedTable .Resize .Range.Resize(.Range.Rows.Count - 1, .Range.Columns.Count) 结束于 resizedTable.sort.SortFields.Clear resizedTable.sort.SortFields _ .Add Key:=Range("resizedTable[Description]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal .Header = xl是 .MatchCase = 假 .Orientation = xlTopToBottom .SortMethod = xlPinYin 。申请 结束子

任何帮助将不胜感激。

Answer 1

为您的表格设置一个新范围，只缩短一行 »totalRowCount - 1。
这里，x 是你的输入范围

Set x = Range(x.Cells(1, 1), x.Cells(x.Rows.Count - 1, x.Columns.Count))

或使用 resize 方法

Sub CutOffLastLine()
    With ActiveWorkbook.Worksheets("Project 2013").ListObjects("Table3")
        .Resize .Range.Resize(.Range.Rows.Count - 1, .Range.Columns.Count)
    End With
End Sub