Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Data Lists

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