小白求助一个查重筛选的按钮，求大神帮助！

leaona

查重筛选按钮.rar (8.61 KB, 下载次数: 5)

2024-9-15 10:31 上传

点击文件名下载附件

一个查重的按钮
一个回到初始表格的按钮

如图        


感谢走过路过的大神们！

leaona

大神们都在回家过节的路上了~~

freetimefuns

1. Sub autof()
   
2. 
   
3. Set rnga = Range(Range("A2"), Range("A2").End(xlDown))
   
4. Set rngb = Range(Range("B2"), Range("B2").End(xlDown))
   
5. 
   
6. Dim arr()
   
7. i = 0
   
8. For Each cellB In rngb
   
9.     For Each cellA In rnga
   
10.         If cellA = cellB Then
    
11.             ReDim Preserve arr(0 To i)
    
12.             arr(i) = cellB
    
13.             i = i + 1
    
14.         End If
    
15.     Next
    
16. Next
    
17. 
    
18. ActiveSheet.Range(Range("A1"), Range("A1").End(xlDown)).AutoFilter Field:=1, Criteria1:=arr, Operator:=xlFilterValues
    
19. 
    
20. End Sub
    

复制代码

leaona

freetimefuns 发表于 2024-9-15 12:18

感谢您的回复，我试试！中秋快乐！

leaona

freetimefuns 发表于 2024-9-15 12:18

测试不成功，做了个按钮，复制上面的代码，测试了一下，没成功

leaona

freetimefuns 发表于 2024-9-15 12:18

查重筛选按钮.rar (16.66 KB, 下载次数: 2)

2024-9-15 13:02 上传

点击文件名下载附件

这是我测试的，不知道哪里错了

zpy2

select * from 双列重复的值 limit 20;
select a.f01 from 双列重复的值 a join (select f02 from 双列重复的值) b on a.f01=b.f02

Qs18

1. Sub qs()
   
2. Dim arr, i, dic
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion.Value
   
5. For i = 2 To UBound(arr)
   
6.     For c = 1 To UBound(arr, 2)
   
7.         s = arr(i, c)
   
8.         If s <> Empty Then
   
9.             If Not dic.exists(s) Then
   
10.                 dic(s) = 1
    
11.             Else
    
12.                 dic(s) = dic(s) + 1
    
13.             End If
    
14.         End If
    
15.     Next
    
16. Next
    
17. For i = 2 To UBound(arr)
    
18.     s = arr(i, 1)
    
19.     If dic(arr(i, 1)) = 1 Then
    
20.         Sheet1.Rows(i).Hidden = True
    
21.     End If
    
22. Next
    
23. End Sub
    
24. Sub 取消筛选()
    
25. Sheet1.Rows("1:200").Hidden = False
    
26. End Sub
    

复制代码

Qs18

试试。。。。。。

Qs18

试试。。。。。。。。。。