選項顯式
按行進行子復制()
模糊的字典,排列,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,請另找壹個聰明的。如果有其他問題,請復制屏幕進行提問。