vba中dictionary怎麽批量 刪除item

演示代碼如下：

Dim?intIndex?As?Integer

Dim?dicTest?As?Dictionary

Set?dicTest?=?New?Dictionary

'?/*?批量添加鍵值對.?*/

For?intIndex?=?1?To?10

dicTest.Add?"Key"?&?CStr(intIndex),?"Item"?&?CStr(intIndex)

Next

'?/*?批量刪除?Items.?*/

For?intIndex?=?1?To?dicTest.Count

dicTest("Key"?&?CStr(intIndex))?=?Empty

Next

Set?dicTest?=?Nothing

End?Sub

添加完鍵值對後，我們可以看到 dicTest 中的鍵值對如下：

>> Keys 監視

>> Items 監視

批量刪除 Items 之後 dicTest 中的 Items 已經全部變成 Empty 了：