VBA中如何删除字典中的一个值

梦幻小丑

如题，我想删掉字典中的某个值，下面的代码总是出错，该如何修改，谢谢！

1. <div class="blockcode"><blockquote>Sub dd()
   
2. Dim i As Integer, dic As Object
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. i = 1
   
5. Do While i <= 16
   
6.     dic(ActiveSheet.Range("A" & i).Value) = ActiveSheet.Range("A" & i).Value
   
7.     i = i + 1
   
8. Loop
   
9. dic.Remove ActiveSheet.Range("A3")
   
10. End Sub

复制代码

工作簿2.rar (8.12 KB, 下载次数: 29)

2016-10-23 11:20 上传

点击文件名下载附件

zax010

dic.Remove ActiveSheet.Range("A3").Value

yaozong

Sub dd()
Dim i As Integer, dic As Object
Set dic = CreateObject("scripting.dictionary")
i = 1
Do While i <= 16
    dic(ActiveSheet.Range("A" & i).Value) = ActiveSheet.Range("A" & i).Value
    i = i + 1
Loop
dic.Remove ActiveSheet.Range("A3").Value
End Sub

梦幻小丑

zax010 发表于 2016-10-23 11:27
dic.Remove ActiveSheet.Range("A3").Value

谢谢！明白了。

wzsy2_mrf

dic.Remove ActiveSheet.Range("A3")
应为：dic.Remove ActiveSheet.Range("A3").Value

神圣之风

wzsy2_mrf 发表于 2016-10-23 11:34
dic.Remove ActiveSheet.Range("A3")
应为：dic.Remove ActiveSheet.Range("A3").Value

请问加上value和不加value的区别在哪里啊？

杨成云

.Value
这个我也经常漏加，导致程序代码出错。
我也不知道Range("A3").Value与Range("A3")有何区别
反正死记硬背的用就行了
有时，直接引用单元格的值，还会出错：例J=CELL(1,"B")
得改成J="" & CELL(1,"B") & ""
有时VBA文本框属性.text与.value ，如果不是数字，是通用的，如果是数字，要参与运算，得用.value吧?，或者+0，*1，让字符型数字变成数值型数字。