求教个Remove的问题

山菊花

错误原因一，如果字典中不存在该关键字，Remove将返回错误。这种情况下应该加个判断，如2楼代码所示。
错误原因二，字典中引用Cells(y, 1)与Cells(y, 1).Value有完全不同的意义，这里不要省略Value属性。
正确写法：
d.Remove Cells(y, 1).Value
错误原因三，原抽取数据的思路不对，y = Int(Rnd() * d.Count + 1)所得结果有可能是原来已经抽取过的，上次已经将字典中该关键字删除。
修改代码如下，供参考：
Sub 抽奖()
    Dim x, y, k, arr
    Randomize
    Set d = CreateObject("scripting.dictionary")
    n = Range("a65536").End(xlUp).Row
    arr = Range("a1:a" & n)
    For x = 1 To n
        d(arr(x, 1)) = ""
    Next x
    For k = 1 To n
        Do
            y = Int(Rnd() * n + 1)
        Loop While arr(y, 1) = ""
        Cells(k, 2) = arr(y, 1)
        d.Remove arr(y, 1)
        arr(y, 1) = ""
    Next k
End Sub

Liangboa

山菊花 发表于 2014-2-6 15:05
错误原因一，如果字典中不存在该关键字，Remove将返回错误。这种情况下应该加个判断，如2楼代码所示。
错误 ...

哦~~ 我已经明白我错在那里了， 谢谢指教。非常感谢