Excel 提取唯一值,满足两个条件,可以参考如下excel宏代码,自己改改吧,具体不知道你的条件。
Sub 宏1()
Dim arr, brr(), i&, j&, s$, lc%, d As Object
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
lc = UBound(arr, 2)
For i = 4 To UBound(arr)
s = arr(i, 2) & Chr(9) & arr(i, 14)
If Not d.Exists(s) Then
m = m + 1
d(s) = ""
For j = 1 To lc
arr(m, j) = arr(i, j)
Next
End If
Next
With Sheets("Sheet2") '写到Sheet2
.UsedRange.Offset(3).ClearContents
.[a4].Resize(m, lc) = arr
.Activate
End With
End Sub
=INDEX($C:$C,SMALL(IF(($A$2:$A$100=$E3)*($B$2:$B$100=F$2),ROW($A$2:$A$100),4^8),ROW($A$1)))&""数组公式