自定义函数--提取单元格内多个被分开的数字

YZC51

请参考
返回最后非空数据和单元格地址.rar (21.74 KB, 下载次数: 15)

2020-3-13 07:55 上传

点击文件名下载附件

Function 查找行列(sr, rng As Range, Optional x As Integer, Optional y As Integer)
   '  y=  0、默认，单元格绝对引用；1、查找列；2、查找行；3、单元格相对引用
    Dim d As Object, arr, brr, v, xd, n%
    arr = rng
    Set d = CreateObject("Scripting.Dictionary")
    For Each s In arr
        d(i) = ""
    Next
    brr = d.keys
    n = UBound(brr)
    For Each s In rng
        If InStr(s, sr) Then
            n = n + 1
            ReDim Preserve brr(0 To n)
            brr(n) = s.Address
        End If
    Next
    If Abs(x) > UBound(brr) Then 查找行列 = "": Exit Function
    If x < 0 Then x = UBound(brr) + x + 1
    v = Split(brr(x), "$")
    查找行列 = Choose(y + 1, brr(x), v(1), v(2), v(1) & v(2))
End Function

YZC51

公式举例：
=查找行列($C$5,$A$5:$A$100，1)  返回结果A11;
=查找行列($C$5,$A$5:$A$100，2)  返回结果A16;
=查找行列($C$5,$A$5:$A$100，3)  返回结果A29;
=查找行列($C$5,$A$5:$A$100，4) 因为没有对应的第4个字符，所以返回结果为空白！
同理：
=查找行列($C$5,$A$5:$A$100，-1)  返回结果A29;
=查找行列($C$5,$A$5:$A$100，-2)  返回结果A16;
=查找行列($C$5,$A$5:$A$100，-3)  返回结果A11;
=查找行列($C$5,$A$5:$A$100，-4) 因为没有对应的第4个字符，所以返回结果为空白！

素心1218

看见标题，我第一反应是正则

浮生若梦~~~

YZC51 发表于 2020-3-12 08:34
公式举例：
=查找行列($C$5,$A$5:$A$100，1)  返回结果A11;
=查找行列($C$5,$A$5:$A$100，2)  返回结果A1 ...

这样附上公式用法,能方便不少人,楼主辛苦了!

YZC51

浮生若梦~~~ 发表于 2020-3-12 09:05
这样附上公式用法,能方便不少人,楼主辛苦了!

谢谢老师鲜花鼓励！

YZC51

素心1218 发表于 2020-3-12 08:45
看见标题，我第一反应是正则

谢谢老师关注！！！

浮生若梦~~~

YZC51 发表于 2020-3-12 10:07
谢谢老师鲜花鼓励！

你才是老师呵,若有时间麻烦给我修改一个自定义函数的代码呗~~~

YZC51

浮生若梦~~~ 发表于 2020-3-12 10:26
你才是老师呵,若有时间麻烦给我修改一个自定义函数的代码呗~~~

还请赐教！！！

浮生若梦~~~

把这个自定义函数变成能一个单元格输入公式然后下拉到空

浮生若梦~~~

譬如这样 =getuniquelist(1,$K:$L,N$8:O$11,ROW(A1)) 下拉到空