SORT排序

最新推荐文章于 2025-04-09 22:30:44 发布

weixin_30381793

最新推荐文章于 2025-04-09 22:30:44 发布

阅读量377

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/shida-liu/p/9415938.html

ActiveWorkbook.Worksheets("LTE_TDS").Columns("A:A").Select
ActiveWorkbook.Worksheets("LTE_TDS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("LTE_TDS").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("LTE_TDS").Sort
.SetRange Range("A2:I1000000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End Wit

转载于:https://www.cnblogs.com/shida-liu/p/9415938.html