Excel VBA数据排序场景代码示例

' 场景2: 多列排序' 先按B列(部门)升序排序，再按C列(销售额)降序排序Sub SortMultipleColumns()    Dim ws As Worksheet    Dim rng As Range    Set ws = ThisWorkbook.Worksheets("Sheet1")    ' 设置排序范围，假设数据从A1到D100，包含标题行    Set rng = ws.Range("A1:D100")    ' 清除之前的排序设置    ws.Sort.SortFields.Clear    ' 添加第一个排序键：B列(部门)，升序    ws.Sort.SortFields.Add _        Key:=rng.Columns(2), ' B列是第二列        SortOn:=xlSortOnValues, _        Order:=xlAscending    ' 添加第二个排序键：C列(销售额)，降序    ws.Sort.SortFields.Add _        Key:=rng.Columns(3), ' C列是第三列        SortOn:=xlSortOnValues, _        Order:=xlDescending    ' 应用排序    ws.Sort.SetRange rng    ws.Sort.Header = xlYes ' 数据包含标题行    ws.Sort.Apply    ' 释放对象变量    Set rng = Nothing    Set ws = Nothing    MsgBox "多列排序完成：先按部门升序，再按销售额降序", vbInformationEnd Sub