Excel 提取唯一值求助,满足两个条件的

2025-03-01 08:37:06
推荐回答(2个)
回答1:

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

回答2:

=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)))&""数组公式