2096EXCEL提取不重複值的五種方法(五)VBA程式法

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」項目。

點取「執行」鈕,結果如下圖所示。