一个筛选问题怎么写呢

小女孩

筛选问题.rar (41.23 KB, 下载次数: 4)

2018-6-13 09:03 上传

点击文件名下载附件

其实就是一个筛选问题，可是我实在是弄不明白了，那位帮我写一段代码，谢谢！！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a1:g" & r)
   
9.     ReDim brr(1 To UBound(arr), 1 To 3)
   
10.     For i = 1 To UBound(arr)
    
11.       d(CStr(arr(i, 6))) = ""
    
12.     Next
    
13.     m = 0
    
14.     For i = 1 To UBound(arr)
    
15.       If Not d.exists(CStr(arr(i, 7))) Then
    
16.         m = m + 1
    
17.         For j = 1 To 3
    
18.           brr(m, j) = arr(i, j)
    
19.         Next
    
20.       End If
    
21.     Next
    
22.   End With
    
23.   With Worksheets("sheet2")
    
24.     .Cells.Clear
    
25.     If m > 0 Then
    
26.       .Range("a1").Resize(m, UBound(brr, 2)) = brr
    
27.     End If
    
28.   End With
    
29. End Sub
    

复制代码

chxw68

问题不复杂。

小女孩

chxw68 发表于 2018-6-13 09:08
问题不复杂。

谢谢老师，可是我测试了，不对的，好像您误解了我的表达，F在G里没有，我要保存F所在行的数据到sheet2，

chxw68

修改好了。

小女孩

chxw68 发表于 2018-6-13 10:27
修改好了。

很正确，谢谢老师！太专业了！佩服！

小女孩

小女孩 发表于 2018-6-13 11:06
很正确，谢谢老师！太专业了！佩服！

我前两天有一个条件格式的，别人帮我写的不对，能帮我写一下么，如果有时间帮我看看呗，谢谢老师！ 条件格式.rar (15.84 KB, 下载次数: 1)

2018-6-13 11:09 上传

点击文件名下载附件

小女孩

chxw68 发表于 2018-6-13 10:27
修改好了。

老师好，如何把f列在G列里有的再单独保存到sheet3里面呢，我实在是看不懂您写的，改了几下也不成功