【VBA】多条件去重

标签：rip   amp   scripting   and   sheet   obj   create   ksh   dict   

Function kaidan(txt)
Dim i As Integer
Dim arr
Set d = CreateObject("scripting.dictionary")
For i = 1 To Worksheets("汇-销").Range("a65536").End(xlUp).Row
arr = Worksheets("汇-销").Range("a1:s" & i).Value
If arr(i, 19) = txt And arr(i, 9) > 0 Then
d(arr(i, 8)) = ""
End If
Next
kaidan = d.Count
End Function

【VBA】多条件去重

标签：rip   amp   scripting   and   sheet   obj   create   ksh   dict   

原文地址：http://www.cnblogs.com/susuye/p/7492295.html