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

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

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

用你那个函数就可以。你之所以出现科学计数的形式是你d列数据的格式问题，你可以先将d列设置为文本格式，然后在d9输入如下公式后填充到出现空白为止： =index（$a$9:$a$2448,row(a1)*12-3,0) 当然，如果你知道vba，那就跟简单了，连填充都不需要，自动完成。。