[已解决]求单列重复与不重复值

etao06407 · 发表于 2011-8-14 11:03

求单列重复与不重复值
问题：
求高手写一段VBA代码：
1、根据A列的型号明细，在C列中求出对应不重复型号部分和
E列中求出对应重复型号部分。
2、如左边示例，明细A9出现2次，所以出现在重复型号中，其他型号未重复，则出现在C列中。
3、要求代码可以增加到65536行。
4、希望可以有较快的运算速度或者类似字典的方法。

请见附图和附件！谢谢！

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2011-8-14 11:57

Sub 求单列重复与不重复值()
Dim i&, r%, rr%, Arr, Arr1(), Arr2()
Dim d, k, t
Set d = CreateObject("Scripting.Dictionary")
Sheet1.Activate
Myr = [a65536].End(xlUp).Row
Arr = Range("a1").CurrentRegion
For i = 2 To UBound(Arr)
d(Arr(i, 1)) = d(Arr(i, 1)) + 1
Next
k = d.keys
t = d.items
For i = 0 To UBound(k)
If t(i) = 1 Then
r = r + 1
ReDim Preserve Arr1(1 To r)
Arr1(r) = k(i)
Else
rr = rr + 1
ReDim Preserve Arr2(1 To rr)
Arr2(rr) = k(i)
End If
Next
[c2:e100] = ""
[c2].Resize(r, 1) = Application.Transpose(Arr1)
[e2].Resize(rr, 1) = Application.Transpose(Arr2)
Set d = Nothing
End Sub

复制代码

跳转到最佳答案楼层

YXJ01 · 发表于 2011-8-14 11:22

用下面的代码就可以，是一个版主总结的，我们要感谢编这个代码的人
Sub 把a列不重复值取到e列()
[A:A].AdvancedFilter 2, , [c1], 1
End Sub

蓝桥玄霜 · 发表于 2011-8-14 11:57

Sub 求单列重复与不重复值()
Dim i&, r%, rr%, Arr, Arr1(), Arr2()
Dim d, k, t
Set d = CreateObject("Scripting.Dictionary")
Sheet1.Activate
Myr = [a65536].End(xlUp).Row
Arr = Range("a1").CurrentRegion
For i = 2 To UBound(Arr)
d(Arr(i, 1)) = d(Arr(i, 1)) + 1
Next
k = d.keys
t = d.items
For i = 0 To UBound(k)
If t(i) = 1 Then
r = r + 1
ReDim Preserve Arr1(1 To r)
Arr1(r) = k(i)
Else
rr = rr + 1
ReDim Preserve Arr2(1 To rr)
Arr2(rr) = k(i)
End If
Next
[c2:e100] = ""
[c2].Resize(r, 1) = Application.Transpose(Arr1)
[e2].Resize(rr, 1) = Application.Transpose(Arr2)
Set d = Nothing
End Sub

复制代码

etao06407 · 发表于 2011-8-14 13:35

本帖最后由 etao06407 于 2011-8-14 13:39 编辑

回复蓝桥玄霜的帖子

非常感谢楼上的指导。
有个问题请教，如果将此代码放到新建的表中运行的话，会出现“无效的过程调用或参数”，请问出现这种提示的时候，如果修改代码？
注：出问题的代码为：[e2].Resize(rr, 1) = Application.Transpose(Arr2)

jiminyanyan · 发表于 2011-8-14 13:43

etao06407 发表于 2011-8-14 13:35
回复蓝桥玄霜的帖子

非常感谢楼上的指导。

[e2].Resize(rr, 1)前面加Sheet2.[e2] ......

fjmxwrs · 发表于 2011-8-14 13:45

本帖最后由 fjmxwrs 于 2011-8-14 13:48 编辑

YXJ01 发表于 2011-8-14 11:22
用下面的代码就可以，是一个版主总结的，我们要感谢编这个代码的人
Sub 把a列不重复值取到e列()
[A:A].Ad ...

学习了，真好的一句提取不重复值，太棒了。
没有试2003，不知道可行不？

etao06407 · 发表于 2011-8-14 13:59

本帖最后由 etao06407 于 2011-8-14 14:01 编辑

回复 jiminyanyan 的帖子

改了之后，还是不行啊，有没有好的方法？

戚国荣 · 发表于 2011-8-14 14:07

完全看不懂~~~不知道是英文差还是EXCEL差

jiminyanyan · 发表于 2011-8-14 14:09

把你认为有问题的附件传上来。。

jiminyanyan · 发表于 2011-8-14 14:10

fjmxwrs 发表于 2011-8-14 13:45
学习了，真好的一句提取不重复值，太棒了。
没有试2003，不知道可行不？

高级筛选，2003可以用的。

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