提取不重复数据的自定义函数

WYS67

yjh_27 发表于 2019-3-31 12:03
已是数组公式，输入{      =BCFSJ(0, $A$5:$A$30)  试试

老师：不行啊！输入{      =BCFSJ(0, $A$5:$A$30) 后，全部显示4.

yjh_27

WYS67 发表于 2019-3-31 12:11
老师：不行啊！输入{      =BCFSJ(0, $A$5:$A$30) 后，全部显示4.

自定义函数返回的是一维数组，不改自定义函数，单元格{=TRANSPOSE(BCFSJ(0,$A$5:$A$30))}

改代码
BCFSJ =Application.TRANSPOSE（NotRepeat.keys）

WYS67

yjh_27 发表于 2019-3-31 12:25
自定义函数返回的是一维数组，不改自定义函数，单元格{=TRANSPOSE(BCFSJ(0,$A$5:$A$30))}

改代码

选定B5:B30，输入区域数组公式:{  =TRANSPOSE(BCFSJ(0,$A$5:$A$30))  ，当提取完不重复数据后，B19:B30就会显示#N/A错误；

如果改代码，BCFSJ =Application.TRANSPOSE（NotRepeat.keys）输入区域数组公式{=BCFSJ(0,$A$5:$A$30)，B19:B30就会显示#N/A错误。
老师：应该怎样屏蔽下面出现的#N/A错误为空白？

WYS67

yjh_27 发表于 2019-3-31 12:25
自定义函数返回的是一维数组，不改自定义函数，单元格{=TRANSPOSE(BCFSJ(0,$A$5:$A$30))}

改代码

选定B5:B30，输入区域数组公式:{  =TRANSPOSE(BCFSJ(0,$A$5:$A$30))  ，当提取完不重复数据后，B19:B30就会显示#N/A错误；

如果改代码，BCFSJ =Application.TRANSPOSE（NotRepeat.keys）输入区域数组公式{=BCFSJ(0,$A$5:$A$30)，B19:B30就会显示#N/A错误。
老师：应该怎样屏蔽下面出现的#N/A错误为空白？

WYS67

Datous 发表于 2019-3-31 11:38
把一楼的改改就行了

老师：按12楼老师的指定修改代码后：

选定B5:B30，输入区域数组公式:{  =TRANSPOSE(BCFSJ(0,$A$5:$A$30))  ，当提取完不重复数据后，B19:B30就会显示#N/A错误；

如果改代码，BCFSJ =Application.TRANSPOSE（NotRepeat.keys）输入区域数组公式{=BCFSJ(0,$A$5:$A$30)，B19:B30就会显示#N/A错误。

老师：应该怎样屏蔽下面出现的#N/A错误为空白？

Datous

WYS67 发表于 2019-3-31 13:00
老师：按12楼老师的指定修改代码后：

选定B5:B30，输入区域数组公式:{  =TRANSPOSE(BCFSJ(0,$A$5:$A$3 ...

把原先的改改。多单元格要和数据源单元格列数相同。

1. Option Explicit
   
2. 
   
3. Function BCFSJ(ParamArray vntAreas() As Variant) As Variant()
   
4. Dim NotRepeat As Object, vntArea, vntElement
   
5. Dim lngCounter&, vntRslt(), A&, vntKey
   
6. 
   
7. Set NotRepeat = CreateObject("Scripting.Dictionary")
   
8. For Each vntArea In vntAreas
   
9.     For Each vntElement In vntArea
   
10.         lngCounter = lngCounter + 1
    
11.         If TypeName(vntElement) = "Range" Then
    
12.             If vntElement <> "" Then NotRepeat(vntElement.Value) = ""
    
13.         Else
    
14.             NotRepeat(vntElement) = ""
    
15.         End If
    
16.     Next
    
17. Next
    
18. ReDim vntRslt(lngCounter - 1, 0)
    
19. For Each vntKey In NotRepeat.keys
    
20.     vntRslt(A, 0) = vntKey
    
21.     A = A + 1
    
22. Next
    
23. While A < lngCounter
    
24.     vntRslt(A, 0) = ""
    
25.     A = A + 1
    
26. Wend
    
27. BCFSJ = vntRslt
    
28. End Function

复制代码

WYS67

Datous 发表于 2019-3-31 14:21
把原先的改改。多单元格要和数据源单元格列数相同。

谢谢老师！

WYS67

Datous 发表于 2019-3-31 14:21
把原先的改改。多单元格要和数据源单元格列数相同。

经验证，计算结果正确无误！

WYS67

WYS67 发表于 2019-3-30 21:43
希望高手大神们写个简洁明快、高效便捷的自定义函数。

改代码
BCFSJ =NotRepeat.keys    为 BCFSJ=Application.TRANSPOSE（NotRepeat.keys）后，在B5:B1000 输入区域数组公式{=BCFSJ(0,$A$5:$A$1000)，B19以下会显示#N/A错误。代码如下：
Function BCFSJ(Index As Integer, ParamArray arglist() As Variant)
Dim NotRepeat As Object, tStr As String
Set NotRepeat = CreateObject("Scripting.Dictionary")
For Each arg In arglist
For Each rRan In arg
If TypeName(rRan) = "Range" Then
If rRan.Value <> "" Then NotRepeat(rRan.Value) = 0
Else
NotRepeat(rRan) = 0
End If
Next
Next
If Index < 1 Then
BCFSJ =Application.TRANSPOSE（NotRepeat.keys）
ElseIf Index <= NotRepeat.Count Then
arr = NotRepeat.keys
BCFSJ = arr(Index - 1)
Else
BCFSJ = ""
End If
End Function


请问老师们，怎样屏蔽#N/A【没有数据】错误为空白？

WYS67

yjh_27 发表于 2019-3-31 12:25
自定义函数返回的是一维数组，不改自定义函数，单元格{=TRANSPOSE(BCFSJ(0,$A$5:$A$30))}

改代码

老师：如图所示，怎样屏蔽当输入区域数组公式时，输出列下面出现的#N/A为空白？

提取不重复数据的自定义函数.zip (15.02 KB, 下载次数: 14)

2019-3-31 20:02 上传

点击文件名下载附件