[發問] 如何以vba編寫程式將A欄不順序並重覆的資料各抽一個出來順序存放於B欄

pcwh3

有一大堆(數以千項)重覆雜亂及不順序的資料存放於A欄，我要如何利用VBA在A欄中各抽取一個單一的資料並順序排列於B欄中？

資料                              結果
HK01150923-3        HK01150923-1
HK01150923-3        HK01150923-2
HK01150923-1        HK01150923-3
HK01150924-1        HK01150924-1
HK01150923-2        HK01150924-2
HK02150923-2        HK02150923-2
HK02150923-3        HK02150923-3
HK01150923-1        HK02150925-1
HK01150923-1        HK02150925-2
HK01150923-1        HK02150925-3
HK01150923-2       
HK01150923-2       
HK01150924-2       
HK01150924-1       
HK02150925-2       
HK02150923-3       
HK01150924-1       
HK01150923-2       
HK01150924-1       
HK02150925-1       
HK02150925-3       
HK01150923-3       
HK02150925-3       
HK02150925-2

pcwh3

我所提出的A 欄和B 欄只是方便提問，但實際上真正運作的檔案相關資料不是在A 欄，A 欄前還有很多資料。
A 欄的資料是不可删除的。不然的話會影響後逐的資料抽取。
只能將A 欄的資料提取存於B 欄待用。

pcwh3

多謝准提大大指點。
我現用的版本程式都是將資料放在另一工作紙上, 再copy and paste回資料工作紙中的正確位置。
所提的程式經改動一下，放入本人現用的程式中，己可做到一氣呵成的功能，省郤了借助先放到另一工作紙中再copy and paste回去的工序。
多謝指點。