我尝试使用以下 VBA 代码对表格进行排序。代码确实选择了正确的列,并且列过滤器中确实有一个小箭头,表明它已排序。但行不排序。他们保持未分类。
怎么了?
Sub SortTableTest()
Dim tbl As ListObject
Dim columnToSortBy As Range
Set tbl = Sheets("PB").ListObjects("AI")
Set columnToSortBy = tbl.ListColumns(9).Range
'Sort table
With tbl.Sort
.SortFields.Clear
.SortFields.Add columnToSortBy, xlDescending
.Header = xlYes
.MatchCase = False
.Apply
End With
End Sub