|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Private Sub 排序()
'排序
Dim xlapp As Object
Set xlapp = GetObject(, "Excel.Application") '创建excel对象
For i = 2 To xlapp.ActiveWorkbook.Worksheets.Count
xlapp.Columns("A:A").Select
xlapp.ActiveWorkbook.Worksheets(i).Sort.SortFields.Clear
xlapp.ActiveWorkbook.Worksheets(i).Sort.SortFields.Add Key:=xlapp.Range("A1"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With xlapp.ActiveWorkbook.Worksheets(i).Sort
.SetRange Range("A2:D97")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
xlapp.ActiveWindow.SmallScroll Down:=63
xlapp.Range("H81").Select
xlapp.ActiveWindow.SmallScroll Down:=-12
Next
End Sub
|
|