EXCEL提取不重複值的五種方法(五)VBA程式法
|
2096 |
EXCEL提取不重複值的五種方法(五)VBA程式法 |
||||
|
實用性 |
●○○ |
難易度 |
●○○○ |
範本檔 |
2096.XLSX |
在平常的工作學習中，我們經常會遇到需要從一堆數據中提取不重複值的需求。我們今天就通過從薪資基本資料表裡面來提取職稱的例子來詳細講解下各種不同方法提取不重複值。
按ALT+F11切換到VBA視窗。
點取「插入 > 模組」圖示，插入一張空白模組表。
輸入下列程式：
Sub Text()
dim d, rng as range, cel as range
set d = createobject("scripting.dictionary")
set rng = sheet5.[e3:e41]
for each cel in rng
if cel.value <> "" then d(cel.value) = ""
next
[n3].resize(d.count) = application.transpose(d.keys)
End Sub
按ALT+TAB鍵切換到Excel活頁簿視窗。
點取「檢視 > 巨集下方▼鈕 > 檢視巨集」指令。
在【巨集】對話方塊，點取「TEXT」項目。
點取「執行」鈕，結果如下圖所示。
