Excel VBA 多条件排序

今天要讲的例子,是按照多条件排序,本里源表格有三种方法,本篇先讲其中一种方式。

问题如下:

Excel VBA 多条件排序

解决的思路如下:

Excel VBA 多条件排序

代码运行的结果如下:

Excel VBA 多条件排序

代码如下:

Excel VBA 多条件排序

代码解析

1:2~3行 DIM定义变量;

2:5、6、47、48行 关闭警告及屏幕刷新;

3:7行 后期绑定字典;

4:8~13行 在工作表sheet1里面,最后一列及最后一行的列数及行数,把数据放入数组arr,把排名区域,放入brr数组

5:15~12行 遍历arr数据,把不满足要求的数据,全部赋值为空

6:23行 定义中间工作表的名称

7:24行 新建新工作表,名称为定义的工作表名称

8:25~28行 把数组写入指定的区域,并用sort进行排序。

9:29行 把新表格的数组放入新的数组 arr1

10:30~33行 遍历arr1,把姓名作为字典的key,把排名作为字典的item

11:35~40行 查询字典,遍历arr数组。没有查到的赋值为空,查到的就返回字典的item值

12:42~44行 把排名数组,放入排名的数据。

13:46行 删除中间的工作表

私信 视频 可以获取54集VBA入门视频

私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件


分享到:


相關文章: