+ -
当前位置:首页 → 问答吧 → VBA 提取单列中的无重复记录,思路已有,求代码!

VBA 提取单列中的无重复记录,思路已有,求代码!

时间:2011-08-03

来源:互联网

在论坛里看了很多关于重复记录的帖子,有好多都是用到字典工具,对于我这样还不太精通的人来说这样的方法看不懂啊看不懂。对于单列提取无重复记录的问题,自己想了个思路:就是循环比较的办法,即用下一个单元格的值和上一个单元格的值进行比较,循环下去,提取无重复的值。想是这样想的,自己感觉也是可以实现的,但就是不知道怎么写代码。还请各位高手指点迷津啊!
    附件里也有详细的思路,大家可以看看,帮忙写一个VBA代码。谢谢各位了!
    无重复记录.rar (7.1 KB)
无重复记录.rar (7.1 KB)
无重复记录----附件
下载次数: 1
2011-8-3 22:29

作者: Nemo-Elhome   发布时间: 2011-08-03

录制一下高级筛选的宏

作者: guojianlin1985   发布时间: 2011-08-03

就是想通过自己的思路把代码写出来,录制宏也用过,高级筛选好像也有局限性吧?

作者: Nemo-Elhome   发布时间: 2011-08-03

Sub Macro1()
'
' Macro1 Macro
' 宏由 user 录制,时间: 2011-8-3
'

'
    Range("A1:A13").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "C1"), Unique:=True
End Sub

作者: jiminyanyan   发布时间: 2011-08-03

引用:
原帖由 Nemo-Elhome 于 2011-8-3 22:41 发表
就是想通过自己的思路把代码写出来,录制宏也用过,高级筛选好像也有局限性吧?
高级筛选或者字典,没必要自己编其他的了。。。

作者: jiminyanyan   发布时间: 2011-08-03

如果非要写代码,还有个比较笨的思路,我曾经用过,就是用countif函数,把它赋值给一个变量,不大于1的数就是不重复值

作者: flysum2008   发布时间: 2011-08-03

可以借鉴,好方法!

作者: Nemo-Elhome   发布时间: 2011-08-03

相关阅读 更多