選項顯式
按行進行子復制（）
模糊的字典，排列，I，j
Set dict = CreateObject（“腳本。詞典》）
arr =張（1）。使用範圍
對於i = 1到下界（arr）
迪克特。全部刪除
對於j = 1到下界（arr，2）
if arr（I，j）& lt；& gt““那麽dict（arr（I，j））= True
下壹個j
床單（2）。單元格（I，1）。調整大小（1，dict。count = dict。鍵
接下來我
末端接頭
程序放在模塊中，如下所示:
我執行這個例子，表1:
執行生成的表2:
按ALT+F11，插入模塊和輸入程序，或錄制宏來修改它們。如果根本沒有VBA基金會，我建議百度壹下入門教程。如果使用WPS，請另找壹個聰明的。如果有其他問題，請復制屏幕進行提問。