Function kaidan(txt)Dim i As IntegerDim arrSet d = CreateObject("scripting.dictionary")For i = 1 To Worksheets("汇-销").Range("a65536").End(xlUp).Rowarr = Worksheets("汇-销").Range("a1:s" & i).Value If arr(i, 19) = txt And arr(i, 9) > 0 Then d(arr(i, 8)) = "" End IfNextkaidan = d.CountEnd Function
转载于:https://www.cnblogs.com/susuye/p/7492295.html
