[已解决]各位老师如何按行筛选不重复值，如附件所示，谢谢！~

fywb2000

筛选行不重复值.rar (8.9 KB, 下载次数: 16)

2012-2-12 23:10 上传

点击文件名下载附件 各位老师如何按行筛选不重复值，如附件所示，谢谢！~

最佳答案

月排行榜 / 总排行榜

adders

2012-2-14 12:01

1.rar (16.66 KB, 下载次数: 5)

2012-2-14 12:01 上传

点击文件名下载附件

VBA法:

1. 
   
2. Sub tt2()
   
3. Application.ScreenUpdating = False
   
4. Columns("AH:AL").ClearContents
   
5. Dim lr As Long
   
6. lr = Cells(Rows.Count, "AB").End(xlUp).Row
   
7. For i = 3 To lr
   
8.     Dim arr()
   
9.     ReDim Preserve arr(1 To 1)
   
10.     arr(1) = Range("AB" & i)
    
11.    
    
12.     For j = 1 To 4
    
13.         For k = LBound(arr) To UBound(arr)
    
14.             If Range("AB" & i).Offset(, j) = arr(k) Then GoTo Nj
    
15.         Next k
    
16.         ReDim Preserve arr(1 To UBound(arr) + 1)
    
17.         arr(UBound(arr)) = Range("AB" & i).Offset(, j)
    
18. Nj: Next j
    
19. 
    
20.     Range("AH" & i).Resize(1, UBound(arr)) = arr
    
21.     Erase arr
    
22. Next i
    
23. Application.ScreenUpdating = True
    
24. End Sub

复制代码

跳转到最佳答案楼层

ueu

1. AH3
   
2. =INDEX($AB3:$AZ3,SMALL(IF(MATCH(--$AB3:$AF3,--$AB3:$AF3,)=COLUMN($A:$E),COLUMN($A:$E),25),COLUMN(A1)))&""

复制代码

数组输入，右拉下拉
筛选行不重复值.rar (10.83 KB, 下载次数: 5)

2012-2-13 04:32 上传

点击文件名下载附件

周义坤

1. =INDEX(3:3,SMALL(IF(MATCH(-$AB3:$AF3,-$AB3:$AF3,)={1,2,3,4,5},{28,29,30,31,32},99),COLUMN(A1)))&""

复制代码

筛选行不重复值.zip (22.41 KB, 下载次数: 4)

2012-2-13 08:30 上传

点击文件名下载附件

adders

1.rar (16.66 KB, 下载次数: 5)

2012-2-14 12:01 上传

点击文件名下载附件

VBA法:

1. 
   
2. Sub tt2()
   
3. Application.ScreenUpdating = False
   
4. Columns("AH:AL").ClearContents
   
5. Dim lr As Long
   
6. lr = Cells(Rows.Count, "AB").End(xlUp).Row
   
7. For i = 3 To lr
   
8.     Dim arr()
   
9.     ReDim Preserve arr(1 To 1)
   
10.     arr(1) = Range("AB" & i)
    
11.    
    
12.     For j = 1 To 4
    
13.         For k = LBound(arr) To UBound(arr)
    
14.             If Range("AB" & i).Offset(, j) = arr(k) Then GoTo Nj
    
15.         Next k
    
16.         ReDim Preserve arr(1 To UBound(arr) + 1)
    
17.         arr(UBound(arr)) = Range("AB" & i).Offset(, j)
    
18. Nj: Next j
    
19. 
    
20.     Range("AH" & i).Resize(1, UBound(arr)) = arr
    
21.     Erase arr
    
22. Next i
    
23. Application.ScreenUpdating = True
    
24. End Sub

复制代码

fywb2000

感谢老师指导，辛苦您了！~