當前位置:成語大全網 - 書法字典 - Vba字典removeall方法

Vba字典removeall方法

最快的代碼來了:

選項顯式

按行進行子復制()

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