VBA/Excel/Access/Word/Excel/Excel Sort
Data Lists
<source lang="vb">
Sub sortDemo()
With ActiveWorkbook.Worksheets("Sheet1").sort .SortFields.clear .SortFields.add Key:=range("D3"), _ SortOn:=SortOnValues, _ Order:=xlAscending, _ DataOption:=xlSortNormal .SetRange range("B4:D9") .HEADER = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With
End Sub
</source>