|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 thdyyf 于 2024-5-22 13:00 编辑
- Function nosame(x As Variant, y As Variant, z As Integer)
- Application.Volatile
- Dim dic As Object
- Dim ar, b, j&
- Set dic = CreateObject("scripting.dictioary")
- ar = x
- For Each b In ar '先把x的每一个单元格作为元素添加到字典
- dic.Add (b), ""
- Next
- ar = y '然后Y的每个单元格,看下字典里有没有同样的元素
- For Each b In ar
- If dic.exists(b) Then
- j = j + 1
- If j = z Then '无相同,输出结果
- nosame = b
- Exit For
- End If
- End If
-
- Next
- Set dic = Nothing
- End Function
复制代码
|
|