|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub tt()
Dim arr, d1, d2
arr = Sheets(1).Range("a2:i" & Range("i3").End(xlDown).Row)
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
If arr(i, 9) = "FAIL" Then d2(arr(i, 1)) = ""
d1(arr(i, 1)) = ""
Next i
For Each v In d1.keys
For Each k In d2.keys
If k = v Then
d1.Remove (v)
End If
Next k
Next v
Sheets(1).Range("k3").Resize(d1.Count, 1) = Application.Transpose(d1.keys())
MsgBox ("符合条件的记录共有:" & d1.Count & "条")
End Sub
|
|