用vba代码提取某列中不重复值

fsydw

2楼大师的代码：
一般都是用字典提取：
Sub 字典()
Dim d As Object
Dim i As Long
Set d = CreateObject("scripting.dictionary")
For i = 1 To Range("A65536").End(xlUp).Row
   If Not d.exists(Cells(i, 1).Value) Then d.Add Cells(i, 1).Value, Nothing
Next i
[C1].Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub

问题：
1、我的记录中有零值和空值，这段代码生成的不重复记录，是否包括零值和空值？如何去掉零值和空值？
2、d.Count是不重复记录的个数吧。
3、字典记录输出时，是从[C1]开始填写？还是从[C2]开始填写？

fsydw

请大师解答22楼的问题！谢谢！

ah2005

原帖由 来生缘 于 2009-6-27 17:27 发表


GOOD，很多人挖空心思想很多歪招来解决问题，但却忽略了EXCEL本身的功能，悲乎？

很赞同来生缘大师的观点，高级筛选和数据透视，原本很简单的功能就就可以代替很多SQL，数组，和字典功能，对于大部分不会SQL的人或者们入门的人来说，是很有用的，因为他们不会。当然，面对一念大师这种高手，当然可以随意实现这些功能，作为一个新人，如果更快更高效的达到自己的核算和工作目的，这才是最重要的。毕竟大多数人是不喜欢枯燥的代码的。

提钱退休

看这个帖子让我震撼

czylhh

都挺好,可惜看VBA代码像看天书

czylhh

如果把提取的不重复值放到另一个表中怎么写

huyuan851215

czylhh 发表于 2011-2-27 15:44
如果把提取的不重复值放到另一个表中怎么写

我也想问这个问题 正在研究中。。。

zyxdyx

研究研究！？！！！

ty1014

alzeng 发表于 2009-6-18 17:24

一个字典的用法还没有弄明白，双字典更不理解，只能悲自己，不知道是否有人能否解释下双字典的用法呢

wtftei

唉……学无止尽啊，代码是出来啦，好歹加个注释，我们这些菜鸟哪看太懂啊