VBScript 代码：对表格区域进行升序排序

Sub SortTableArea() '定义变量 Dim AreaRange As Range Dim WorkbookName As String Dim WorksheetName As String

'设置变量 WorkbookName = ActiveWorkbook.Name WorksheetName = ActiveSheet.Name Set AreaRange = Selection

'排序 Application.ScreenUpdating = False AreaRange.Select ActiveWorkbook.Worksheets(SheetName).Sort.SortFields.Clear ActiveWorkbook.Worksheets(SheetName).Sort.SortFields.Add Key:=AreaRange, _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets(SheetName).Sort .SetRange AreaRange .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Application.ScreenUpdating = True

End Sub