Vba字典再次求和。

b =拆分(a，" ")

對於b中的每個單元

N =剝離(重復數據刪除，"")

m = 0

對於i = 0至UBound(n)

如果cel = n(i ),那麽m = m + 1

然後

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

然後

結束功能