查找并显示字符

wjcpa

请教：
如附件中，求查找并显示字符的函数

Henry D. Sy

1. Function Contxt(ParamArray args() As Variant) As Variant
   
2.     Dim tmptext As Variant, i As Variant, cellv As Variant
   
3.     Dim cell As Range
   
4.     tmptext = ""
   
5.     For i = 0 To UBound(args)
   
6.         If Not IsMissing(args(i)) Then
   
7.             Select Case TypeName(args(i))
   
8.             Case "Range"
   
9.                 For Each cell In args(i)
   
10.                     tmptext = tmptext & cell
    
11.                 Next cell
    
12.             Case "Variant()"
    
13.                 For Each cellv In args(i)
    
14.                     tmptext = tmptext & cellv
    
15.                 Next cellv
    
16.             Case Else
    
17.                 tmptext = tmptext & args(i)
    
18.             End Select
    
19.         End If
    
20.     Next i
    
21.     Contxt = tmptext
    
22. End Function
    

复制代码

B10=

1. =MID(contxt(IF(ISERROR(FIND(A10,$B$1:$B$5)),"",","&$B$1:$B$5)),2,99)

复制代码

三键结束,下拉

Henry D. Sy

wjcpa

谢谢大侠

wjcpa

请教一下，刚才的公式为何copy后，用数组公式输入后就出现#NAME?的符号

Henry D. Sy

wjcpa 发表于 2017-8-28 16:49
请教一下，刚才的公式为何copy后，用数组公式输入后就出现#NAME?的符号

Contxt是自定义函数,要把代码保存在模块中
保存为启用宏的文件xlsm
然后再引用Contxt