Vba字典重復數據消除

b =拆分（a，““）

對於b中的每個單元

N =剝離（重復數據消除，“）

m = 0

對於i = 0至下界（n）

如果cel = n（I），那麽m = m + 1

然後

如果m = 0，則重復數據刪除=重復數據刪除&；““& amp賽璐珞片

然後

結束功能