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

轉載于:https://www.cnblogs.com/susuye/p/7492295.html

總結

以上是生活随笔為你收集整理的【VBA】多条件去重的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。