VBA入门60：字典Remove方法

Remove方法直接删除字典中某个key及其对应的item。

将下面的水浒人物放进字典。

Sub vv()

    Dim d As Object

    Set d = CreateObject('scripting.dictionary')

    d('张顺') = '浪里白条'

    d('武松') = '行者'

    d('鲁智深') = '花和尚'

    d('燕青') = '浪子'

    okey = d.keys

    oitem = d.items

End Sub

字典中有4个水浒人物，现在只保留武松和鲁智深这对好基友。

字典名称.remove key

这样就可以删除某个指定的key及其item。

remove方法是单个删除，removeall则是清空字典。

Sub vv()

    Dim d As Object

    Set d = CreateObject('scripting.dictionary')

'编写字典

    d('张顺') = '浪里白条'

    d('武松') = '行者'

    d('鲁智深') = '花和尚'

    d('燕青') = '浪子'

    '辅助代码

    okey = d.keys

    oitem = d.items

    '清空字典

    d.RemoveAll

'字典条目数=0

    icount = d.Count

End Sub