龙空技术网

Excel VBA 多条件排序

浮云Excel 502

前言:

而今看官们对“vba排序算法”大致比较重视,咱们都想要了解一些“vba排序算法”的相关知识。那么小编在网络上汇集了一些对于“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文件

标签: #vba排序算法