规则：B列与C列相亲，相中的为一对，相不中的与D列相，还相不中的为光棍；同理，C列的光棍再与B,D列相亲，相簿中的也是光棍.............；数据没规则
要求：一式拉出B,C,D列的所有光棍

己结婚的不参与了。。。。

看得懂吗？
为什么得出来的先是1，3,5 ?

=IF(COLUMN()<8,TEXT(--TEXT(COUNTIF($B$1:$D$5,B1)-COUNTIF(B$1:B$5,B1)-COUNTIF(B$1:B1,B1),"!0;!1;!0;")*B1,"[>0]"),TEXT(TEXT(ABS(COUNTIF($B$1:$B$5,$D1)-COUNTIF($C$1:$C$5,$D1))-COUNTIF($D$1:$D1,$D1),"!0;!1;!0")*$D1,"[>0]"))
右拉下拉公式，然后用定位空值办法清除空值单元格

最近为什么这么多人非要用excel抢数据库如access的饭碗

取个巧 ，自定义函数
Function csuo(ByVal
rng As Range, c%, r%)
Dim arr, r1%, r2%, c1%, c2%, s()
arr = rng.Value
For c1 = 1 To 2
For r1 = 1 To UBound(arr)
For c2 = c1 + 1 To 3
For r2 = 1 To UBound(arr)
If (arr(r1, c1) + arr(r2,c2)) <> 0 Then
If arr(r1, c1) = arr(r2,c2) Then
arr(r1, c1) = 0
arr(r2, c2) = 0
GoTo line
End If
End If
Next r2
Next c2
line:
Next r1
Next c1
c1 = 1
For r1 = 1 To UBound(arr)
If arr(r1, c) > 0 Then
ReDim Preserve s(1 To c1)
s(c1) = arr(r1, c)
c1 = c1 + 1
End If
Next r1
If r > UBound(s) Then
csuo = ""
Else
csuo = s(r)
End If
End Function

这个。。。好像难了一点= =没思路呃。

各位对不住了，想出此题我也冒汗，原来写了个300多可以，改了数据类型发现有缺陷，所以来这发帖来了，匿了这么久，这题我也没想下去；这里说下我两列的思路，3列以上还是要大家想想办法
INDEX(A:A,SMALL(IF(COUNTIF(OFFSET(A$1,,,ROW($A$1:$A$9),),A$1:A$9)>COUNTIF(OFFSET($B$1:$B$9,,4-COLUMN(),9,),A$1:A$9),ROW($A$1:$A$9),4^8),ROW(A1)))&""