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文件


分享到:


相關文章: