[已解决]求个代码

uuw5

Book2b.rar (11.61 KB, 下载次数: 19)

2012-2-2 15:21 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

liuguansky

2012-2-2 15:34

1. Sub justtest()
   
2.     Dim d As New Dictionary, Arr(1 To 2), i&, j As Byte, Ar
   
3.     Arr(1) = Range("c5:c" & Cells(Rows.Count, 3).End(3).Row).Value
   
4.     Arr(2) = Range("d5:d" & Cells(Rows.Count, 3).End(3).Row).Value
   
5.     For j = 1 To 2
   
6.         For i = 1 To UBound(Arr(j))
   
7.             d(Arr(j)(i, 1)) = d(Arr(j)(i, 1)) + 1
   
8.     Next i, j
   
9.     Ar = d.Keys
   
10.     For i = 0 To UBound(Ar)
    
11.         If d(Ar(i)) < 2 Or d(Ar(i)) > 5 Then
    
12.             d.Remove Ar(i)
    
13.         End If
    
14.     Next i
    
15.     Range("h20:h" & Rows.Count).ClearContents
    
16.     If d.Count > 0 Then Range("h20").Resize(d.Count) = Application.Transpose(d.Keys)
    
17.     Set d = Nothing
    
18. End Sub
    

复制代码

Book2b.rar (13.03 KB, 下载次数: 10)

2012-2-2 15:34 上传

点击文件名下载附件
这样试试？

跳转到最佳答案楼层

liuguansky

1. Sub justtest()
   
2.     Dim d As New Dictionary, Arr(1 To 2), i&, j As Byte, Ar
   
3.     Arr(1) = Range("c5:c" & Cells(Rows.Count, 3).End(3).Row).Value
   
4.     Arr(2) = Range("d5:d" & Cells(Rows.Count, 3).End(3).Row).Value
   
5.     For j = 1 To 2
   
6.         For i = 1 To UBound(Arr(j))
   
7.             d(Arr(j)(i, 1)) = d(Arr(j)(i, 1)) + 1
   
8.     Next i, j
   
9.     Ar = d.Keys
   
10.     For i = 0 To UBound(Ar)
    
11.         If d(Ar(i)) < 2 Or d(Ar(i)) > 5 Then
    
12.             d.Remove Ar(i)
    
13.         End If
    
14.     Next i
    
15.     Range("h20:h" & Rows.Count).ClearContents
    
16.     If d.Count > 0 Then Range("h20").Resize(d.Count) = Application.Transpose(d.Keys)
    
17.     Set d = Nothing
    
18. End Sub
    

复制代码

Book2b.rar (13.03 KB, 下载次数: 10)

2012-2-2 15:34 上传

点击文件名下载附件
这样试试？

uuw5

liuguansky 发表于 2012-2-2 15:34
这样试试？

在另一张表上运行提示用户类型未定义是什么意思?

liuguansky

uuw5 发表于 2012-2-2 16:05
在另一张表上运行提示用户类型未定义是什么意思?

在VBE中工具下，引用。

uuw5

liuguansky 发表于 2012-2-2 16:12
在VBE中工具下，引用。

引用了但没结果,我还有哪个地方有问题?

liuguansky

上传下工作表看看。

uuw5

liuguansky 发表于 2012-2-2 17:05
上传下工作表看看。

没办法传,谢谢你的帮助!