用vba字典对象提取不重复值

zm_imba · 发表于 2013-1-15 20:55

用字典提取不重复值.zip (15.38 KB, 下载次数: 611)

lzxdy · 发表于 2013-1-15 21:22

Cells(1, 1)和arr(1,1)不是一回事；
Cells(1, 1).value和arr(1,1)才能划等号。

cbtaja · 发表于 2013-1-15 21:23

字典对象的item元素，可以是任何“类”，所以，10个不同的单元格，就是10个不重复的对象；而你用赋值方法得到的数组，其每个数组元素仅取得了各个单元格的值，所以，当数组元素的值相等时，就是重复对象了。

zm_imba · 发表于 2013-1-15 21:40

lzxdy 发表于 2013-1-15 21:22
Cells(1, 1)和arr(1,1)不是一回事；
Cells(1, 1).value和arr(1,1)才能划等号。

谢谢，加了value后运行果然一样

zm_imba · 发表于 2013-1-15 21:51

cbtaja 发表于 2013-1-15 21:23
字典对象的item元素，可以是任何“类”，所以，10个不同的单元格，就是10个不重复的对象；而你用赋值方法得 ...

谢谢您的回答，我可不可这样理解:
我是把10个单元格（单元格所有属性）加入到了对象里，而每个单元格的所有属性不同，如cells().row,因此字典对象判断cells（X，1）是10个不重复的关键字？

忘得快 · 发表于 2013-1-16 22:20

lzxdy 发表于 2013-1-15 21:22
Cells(1, 1)和arr(1,1)不是一回事；
Cells(1, 1).value和arr(1,1)才能划等号。

大侠：
Sub ko()
Dim d, x, k, arr
Set d = CreateObject("Scripting.Dictionary")
arr = Range("a1:a10")
For x = 1 To 10 Step 1
d(Cells(x, 1)).Value = ""
Next
k = d.keys
[c1].Resize(d.Count, 1) = Application.Transpose(k)
Set d = Nothing
End Sub
运行时提示：要求对象，这到底是怎么回事啊？谢谢！

lzxdy · 发表于 2013-1-17 00:39

d(Cells(x, 1)).Value = "" 应为d(Cells(x, 1).Value) = ""

忘得快 · 发表于 2013-1-19 22:52

lzxdy 发表于 2013-1-17 00:39
d(Cells(x, 1)).Value = "" 应为d(Cells(x, 1).Value) = ""

谢谢lzxdy ！

weiyingde · 发表于 2016-1-19 18:34

这一句怎么解释？
d(Cells(x, 1)).Value = ""

loveshailyu · 发表于 2017-5-9 19:14

weiyingde 发表于 2016-1-19 18:34
这一句怎么解释？
d(Cells(x, 1)).Value = ""

同求该句如何解释

		自动登录	找回密码
密码			免费注册

[求助] 用vba字典对象提取不重复值