第18章 多条件排序

多条件排序包括两种状况：

● 对多列进行排序，每列一个排序条件；

● 对单列进行排序，一列中多个条件。

本章对多条件排序中存在的技巧进行实例演示。

● 实例126双条件排序：首列数值升序、次列笔画降序

● 实例127背景色和拼音单列双条件排序

实例126 双条件排序：首列数值升序、次列笔画降序

【技巧说明】 以首列数值升序、次列笔画降序方式对双列进行排序。

【案例介绍】 对双列数据也可以是多列数据排序，但排序条件只有两个，当前列按数值升序排列，当前列右边列按笔画降序排列。初始数据如图4.17所示。

【案例实现】 参见以下步骤：

[1] 使用快捷键Alt+F11进入VBE（Visual Basic Editor）环境。

[2] 单击菜单【插入】\【模块】，打开模块代码窗口。

[3] 在右边代码窗口输入以下代码：

Sub双条件排序首列升序次列降序()
  With ActiveWorkbook.ActiveSheet.Sort
      .SortFields.Clear
      .SortFields.Add Key:=Application.Intersect(ActiveCell.EntireColumn,
          ActiveCell.CurrentRegion),SortOn:=xlSortOnValues, Order:=
          xlAscending
  '首列按数值升序排序
      .SortFields.Add Key:=Application.Intersect(ActiveCell.Offset(0, 1)
          .EntireColumn, ActiveCell.CurrentRegion),SortOn:=xlSortOnValues,
Order:=xlDescending, DataOption:=xlSortNormal  '次列以笔画为基准降序排序
      .SetRange Application.Intersect(Selection.CurrentRegion, Selection.
          CurrentRegion.Offset(1, 0))
      .SortMethod=xlStroke
      .Apply
    End With
End Sub

[4] 关闭VBE窗口返回到工作表。

[5] 选中B5单元格（光标位置很重要，激活不同列有不同结果），用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，B列数据除首行外均按数值升序排列；C列按笔画排序作为次要关键字对数据按笔画降序排列，即在B列排序之后，若B列有多个相同数值，则对应的C列数据按笔画次序降序排列；若B列未出现相同数据，则次要关键字条件不起任何作用。结果如图4.18所示。

图4.17 待排序的原始数据

图4.18 已将扩展数据区域按双条件排序

提示

本实例参见光盘样本：..\第4部分\实例126.xlsm。

实例127 背景色和拼音单列双条件排序

【技巧说明】 按背景色和拼音对单列数据进行双条件排序。

【案例介绍】 对一列数据排序，将与当前单元格背景色一致的所有数据移至最顶端；对于同颜色的数据，再以第二关键字按拼音顺序进行升序排列。初始数据如图4.19所示。

【案例实现】 参见以下步骤：

[1] 使用快捷键Alt+F11进入VBE（Visual Basic Editor）环境。

[2] 单击菜单【插入】\【模块】，打开模块代码窗口。

[3] 在右边代码窗口输入以下代码：

Sub单列双条件排序背景色和拼音()
  With ActiveWorkbook.ActiveSheet.Sort
  .SortFields.Clear
  .SortFields.Add(Application.Intersect(ActiveCell.EntireColumn,
    ActiveCell.CurrentRegion),xlSortOnCellColor, xlAscending)
  .SortOnValue.Color=ActiveCell.Interior.Color '条件一:当前单元格背景色置顶
  .SortFields.Add Key:=Application.Intersect(ActiveCell.EntireColumn,
      ActiveCell.CurrentRegion),SortOn:=xlSortOnValues, Order:=xlAscending
  .SetRange Application.Intersect(ActiveCell.EntireColumn,
      ActiveCell.CurrentRegion)
  .SortMethod=xlPinYin
          '条件二:中文排序方式为以拼音为基准
    .Apply
    End With
End Sub

[4] 关闭VBE窗口返回到工作表。

[5] 选中A8单元格，用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，则A1:A13区域中与A8单元格背景色一致的单元格置顶；同时，若有多个单元格数据与A8背景色相同，则对此多个单元格以第二条件——拼音顺序排序。结果如图4.20所示。

图4.19 待排序的原始数据

图4.20 已将单列按双条件排序

提示

本实例参见光盘样本：..\第4部分\实例127.xlsm。

上一章目录下一章