今天要講的例子,是按照多條件排序,本里源表格有三種方法,本篇先講其中一種方式。
問題如下:
解決的思路如下:
代碼運行的結果如下:
代碼如下:
代碼解析
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文件
閱讀更多 浮雲Excel分享 的文章