Excel 2010 VBA 入门 043 按自定义序列进行排序

目录

示例：

实现代码

单元格对象的Sort方法

添加和删除自定义序列CustomList

使用自定义序列排序

实现代码2

Sort对象

排序字段SortField

按颜色排序

设置排序区域SetRange方法

---

示例：

    如图所示，该表为某医院医务人员一览表。现在希望能够将该表数据以C列（科室）按照“外妇科l手术室l内儿科l西医科l中医科l耳鼻喉科I放射科l检验科l超室|口腔科l针灸科I西药房l中药房l收费室J疾控科l合管办|后勤科”的依次顺序进行排序，如何利用VBA实
现？

序号	姓名	科室	级别	身份	职称	受聘专业	参工时间	工作年限	入院时间	入院年限	职务
1	张1张	后勤科	中级	干部	主治医师	医生	1970/9/1	40	1970/7/1	40
2	李2李	外妇科	中级	干部	主治医师	医生	1991/8/1	19	2008/10/1	2	院长.书记
3	江3江	外妇科		工人		医生	1993/9/1	17	1999/1/1	12
4	陈4陈	外妇科	初级	干部	医士	医生	1999/10/1	11	1999/10/1	11	医务科长
5	周5周	外妇科		合同		医生	2009/2/13	2	2009/2/13	2
6	吴6吴	外妇科	中级	干部	主治医师	医生	1977/2/1	34	1977/7/1	33	副院长
7	张7张	外妇科	中级	干部	主治医师	医生	1978/4/1	33	1985/1/1	26
8	李8李	外妇科	初级	干部	护师	护士	1987/2/1	24	1989/3/1	22
9	江9江	外妇科		合同		护士	2007/4/26	4	2008/4/1	3
10	陈10陈	外妇科		干部		护士	2000/8/1	10	1999/5/1	12
11	周11周	外妇科	初级	干部	护士	护士	2007/6/6	4	2007/6/1	4
12	吴12吴	外妇科		干部		医生	2006/3/1	5	2006/4/1	5
13	张13张	外妇科