多行多列不重复值的新探讨用VBA怎么实现

udd · 发表于 2009-12-23 09:10

gjj136138139 · 发表于 2009-12-23 09:57

原帖由 oobird 于 2009-12-23 09:38 发表
Sub yy()
j = 4
For i = 4 To 9'范围自己改
If .Find(Cells(i, 1), , , 1) Is Nothing And [c:c].Find(Cells(i, 1), , , 1) Is Nothing Then Cells(j, 3) = Cells(i, 1): j = j + 1
If [a:a].Find(Cells(i, 2), ...

用find方法不错！顶

gjj136138139 · 发表于 2009-12-23 09:24

附件表述不是很清楚，请参阅http://club.excelhome.net/thread-499222-1-1.html，是这个意思么？

udd · 发表于 2009-12-23 09:35

是第一列和第二列比较，如果第一列和第二列有不相同的，就放在C列

oobird · 发表于 2009-12-23 09:38

Sub yy()
j = 4
For i = 4 To 9'范围自己改
If [b:b].Find(Cells(i, 1), , , 1) Is Nothing And [c:c].Find(Cells(i, 1), , , 1) Is Nothing Then Cells(j, 3) = Cells(i, 1): j = j + 1
If [a:a].Find(Cells(i, 2), , , 1) Is Nothing And [c:c].Find(Cells(i, 2), , , 1) Is Nothing Then Cells(j, 3) = Cells(i, 2): j = j + 1
Next
End Sub

udd · 发表于 2009-12-23 09:45

谢谢，太谢谢

xfliuliu2710 · 发表于 2009-12-23 10:36

学习学习，谢谢谢谢！

ericfei · 发表于 2009-12-23 10:36

Find 方法代码很简单，不过写的话速度很慢啊。

[ 本帖最后由 ericfei 于 2009-12-23 10:38 编辑 ]

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

[讨论] 多行多列不重复值的新探讨用VBA怎么实现

回复 2楼 gjj136138139 的帖子

回复 4楼 oobird 的帖子