复合条件筛选。。。。（有请高手）

丢丢表格

分段多条件筛选

A列越往下，筛选的复合条件越多

（请不要借辅助）

结果如F 列

请高手光临

题目应改为递加条件更适当些

=INDEX(A:A,SMALL(IF(COUNTIF(OFFSET(B$1,,,ROW($1:$29)),$A$2:$A$30),4^8,ROW($2:$30)),ROW(A1)))&""
附件在 21楼

ddmyykdzh

围观，期待答案      

丢丢表格

送金币的，请速来接收吧！

丢丢表格

真的有这样难吗？ 坐等了。。。。

sunjing-zxl

这个问题用VBA解决很方便
附件：
Book23-sunjing.rar (12.38 KB, 下载次数: 12)

2012-1-31 16:52 上传

点击文件名下载附件

1. Sub 筛选()
   
2.     Dim arr, arr1, arr2
   
3.     Dim i As Long, j As Long, n As Long
   
4.     Dim d As New Dictionary
   
5.     arr = Range("A2:B" & [A65536].End(xlUp).Row)
   
6.     ReDim arr2(1 To UBound(arr), 1 To 1)
   
7.     For i = 1 To UBound(arr)
   
8.         If Len(arr(i, 2)) Then
   
9.             If Not d.Exists(arr(i, 2)) Then
   
10.                 d.Add arr(i, 2), 1
    
11.             End If
    
12.         End If
    
13.         arr1 = d.Keys
    
14.         For j = 1 To d.Count
    
15.             If arr1(j - 1) = arr(i, 1) Then
    
16.                 GoTo 1
    
17.             End If
    
18.         Next j
    
19.         n = n + 1
    
20.         arr2(n, 1) = arr(i, 1)
    
21. 1:
    
22.     Next i
    
23.     Range("F2:F" & [F65536].End(xlUp).Row + 1).ClearContents
    
24.     Range("F2").Resize(UBound(arr2)) = arr2
    
25. End Sub

复制代码

丢丢表格

sunjing-zxl 发表于 2012-1-31 16:53
这个问题用VBA解决很方便
附件：

谢老师VBA的精彩回答,
  不过我是想要函数作解

丢丢表格

再等等。。。。。。。。。。。

丢丢表格

来吧！函数高手们。

chen58

期待中                              

1032446692

也期待函数高手出现！！！！！！