求教个Remove的问题

Liangboa

Sub 抽奖()
    Dim x, y, k, arr
    Randomize
    Set d = CreateObject("scripting.dictionary")
    arr = Range("a1:a" & Range("a65536").End(xlUp).Row)
    For x = 1 To UBound(arr)
    d(arr(x, 1)) = ""
    Next x
    For k = 1 To d.Count
    y = Int(Rnd() * d.Count + 1)
    Cells(k, 2) = Cells(y, 1)
    d.Remove Cells(y, 1)
    Next k
End Sub

为什么我不能删除Cells(y,1)
在d.Remove Cells(y, 1)这一行显黄色 提示应用程序定义或对象定义错误.
这对象应该怎么写才对呢

CheryBTL

先判断下是不是在字典中，若字典中没有，肯定无法REMOVE了。
可以用

1. If d.Exists(Cells(y,1)) then d.Remove Cells(y, 1)

复制代码

Liangboa

CheryBTL 发表于 2014-2-5 22:38
先判断下是不是在字典中，若字典中没有，肯定无法REMOVE了。
可以用

首先谢谢指教.我理解了.
我把你这句话增加进去了.
虽然没有提示错误了.但没能把d字典中Cells(y,1)给删掉.是什么原因呢

CheryBTL

Liangboa 发表于 2014-2-5 22:49
首先谢谢指教.我理解了.
我把你这句话增加进去了.
虽然没有提示错误了.但没能把d字典中Cells(y,1)给删掉 ...

Remove不就是从字典中去除掉，也就是删除么？

Liangboa

CheryBTL 发表于 2014-2-5 22:56
Remove不就是从字典中去除掉，也就是删除么？

嗯. 是的. 我也是这么认为的. 可是我运行结束后还是没删除. 本地窗口调式的时候也没见删.感觉就像直接跳过去一样.

Liangboa

CheryBTL 发表于 2014-2-5 22:56
Remove不就是从字典中去除掉，也就是删除么？

意思就好像是
If d.Exists(Cells(y, 1)) Then
检查出Cells(y,1)并不存在.
所以跳过册除. 我想应该是那里引用得不对了.

CheryBTL

Liangboa 发表于 2014-2-5 23:01
意思就好像是
If d.Exists(Cells(y, 1)) Then
检查出Cells(y,1)并不存在.

模拟下你想要的结果，发附件上来看看吧

Liangboa

程序 就麻烦复制下 上面的吧.
其实就是随便一张表 在A列随便填些东西就可以了

Liangboa

CheryBTL 发表于 2014-2-5 23:05
模拟下你想要的结果，发附件上来看看吧

以发附件上来. 就麻烦复制下上面的程序吧

CheryBTL

Liangboa 发表于 2014-2-5 23:15
以发附件上来. 就麻烦复制下上面的程序吧

你的附件仅有一列数据，并没有说明你的问题，爱莫能助呀