
'每秒处理几万条数据应该很轻松
Option Explicit
Sub abc()
Dim a, i, m, d(1)
a = [a1].CurrentRegion.Resize(, 3).Value
For i = 0 To UBound(d)
Set d(i) = CreateObject("scripting.dictionary")
Next
For i = 2 To UBound(a)
d(0)(a(i, 1)) = 1
If a(i, 3) = "通过" Then d(1)(a(i, 1)) = 1
Next
For Each i In d(0).keys
If Not d(1).exists(i) Then m = m + 1: a(m, 1) = i
Next
If m > 0 Then [e2].Resize(m) = a
End Sub