多区域去重自定义函数

xingqiliu666

多区域去重自定义函数

1. Function only_one(ParamArray arr()) As Variant '多区域去重
   
2.     Dim temp As Variant, i%, j%, t%
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     For i = LBound(arr) To UBound(arr)
   
5.         temp = arr(i)
   
6.         If Not IsArray(temp) Then
   
7.             ReDim temp(1 To 1, 1 To 1)
   
8.             temp(1, 1) = arr(i)
   
9.         End If
   
10.         For t = 1 To UBound(temp, 2)
    
11.             For j = 1 To UBound(temp, 1)
    
12.                 If Not d.Exists(temp(j, t)) And temp(j, t) <> "" Then
    
13.                     d.Add temp(j, t), ""
    
14.                 End If
    
15.             Next j
    
16.         Next t
    
17.     Next i
    
18.     only_one = Application.Transpose(d.Keys)
    
19. End Function

复制代码

工作簿1.zip (13.59 KB, 下载次数: 30)

2022-12-8 15:46 上传

点击文件名下载附件

C371301552

aails6543

感谢楼主分享