[Excel VBA]自定義排序的三種方法

[Excel VBA]自定義排序的三種方法

諸君好，前前期我們聊了VBA編程和數據的常規排序……VBA常用小代碼105：Rang對象的排序操作……

今天我們再聊下自定義排序……

何謂自定義排序，就是按指定的順序對數據源進行排序唄……

今一共分享了三種方法。

第1種方法是系統自帶的OrderCustom，優點是代碼簡潔，缺點是自定義序列有字符長度限制（255個）。

第2種方法是字典+數組設置序列號，再使用了輔助列進行排序。優點是不會破壞單元格的形式和結構，比如單元格中存在的公式、背景等。

第3種方法是只使用字典+數組，借助簡單桶排序的技巧，直接對數據在數組中進行排序。優點是效率較高，缺點是會破壞單元格的結構，比如消除公式等。

（第1種建議掌握，第2種建議了解，第3種……能懂就懂，不懂先放著吧~）

舉個例子。

如下圖所示，A:C列是數據源。

現需要根據E列所指定的部門先后順序，對數據源進行重新排序，如果部門不在指定序列內，則排放在數據源末尾。

排序結果如下圖。

第1種方法代碼如下：Sub FreeSort()'eh技術論壇 VBA編程學習與實踐 看見星光Dim n&, rng As RangeSet rng = Range("e2:e" & Cells(Rows.Count, "e").End(xlUp).Row)Application.AddCustomList (rng)'增加一個自定義序列,該參數除了支持單元格對象，也支持數組。n = Application.CustomListCount'自定義序列的數目Range("a:c").Sort key1:=[a1], order1:=xlAscending, Header:=xlYes, ordercustom:=n + 1'使用自定義排序，ordercustom指定使用哪個自定義序列排序。'當使用自定義排序時，需要將OrderCustom參數設置為指定的序列在自定義列表中的順序加1Application.DeleteCustomList n'刪除新增的自定義序列End Sub

題外話：

之前我們講過，數組和字典是VBA處理數據的最佳利器，這是由于數組可以提高計算效率，字典可以關聯多個數據源構建各種關系，因此這里再次對學習VBA的童鞋們提個小建議，不要在單元格工作簿等對象上浪費太多時間，那是熟能生巧的事物，數組和字典才是學習VBA的核心要義哦。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。