VBA多条件去重
Posted 苏苏叶
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了VBA多条件去重相关的知识，希望对你有一定的参考价值。
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多条件去重的主要内容，如果未能解决你的问题，请参考以下文章