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

浮生若梦~~~

YZC51 发表于 2020-3-14 12:08
请老师斧正！
Public Function UNIQUE(rng)
    Set d = CreateObject("Scripting.Dictionary")

去重功能是达到了,要能套其它函数计数或者求和就好啦

YZC51

浮生若梦~~~ 发表于 2020-3-14 20:53
去重功能是达到了,要能套其它函数计数或者求和就好啦

请老师斧正！

Public Function UNIQUE(rng, Optional x As Integer)
    Set d = CreateObject("Scripting.Dictionary")
    Arr = rng
    For i = 1 To UBound(Arr)
        If Len(Arr(i, 1)) Then d(Arr(i, 1）) = ""
    Next
    brr = d.keys
    If x Then UNIQUE = UBound(brr) + 1: Exit Function
    On Error Resume Next
    UNIQUE = brr(0)
    With Application.ThisCell
        For j = 1 To UBound(brr, 1)
            If .Offset(j) = "" Then s = Null Else s = "*"
            .Offset(j).Replace s, brr(j)
        Next j
    End With
End Function

浮生若梦~~~

YZC51 发表于 2020-3-14 21:13
请老师斧正！

Public Function UNIQUE(rng, Optional x As Integer)

真好,直接参数2计数

YZC51

浮生若梦~~~ 发表于 2020-3-14 21:41
真好,直接参数2计数

谢谢老师花花鼓励！

WYS67

YZC51 发表于 2020-3-14 21:13
请老师斧正！

Public Function UNIQUE(rng, Optional x As Integer)

1.如果能忽略数据区域的空白，就更强大了。
2.弱弱地问一句，参数2应该怎样指定？0~10范围内任意数吗？

YZC51

WYS67 发表于 2020-3-14 22:25
1.如果能忽略数据区域的空白，就更强大了。
2.弱弱地问一句，参数2应该怎样指定？0~10范围内任意数吗？

谢谢老师花花鼓励！

1、 d(Arr(i, 1)) = ""
修改为
If Len(Arr(i, 1)) Then d(Arr(i, 1)) = ""

2、0为列出数据；不等于0为计数。

浮生若梦~~~

YZC51 发表于 2020-3-14 22:32
谢谢老师花花鼓励！

1、 d(Arr(i, 1)) = ""

造福好多人,365是好多人用不起,旧版本又没,解决一个问题要写好长的公式,对会的人还好说,小白们就...老师辛苦了!

WYS67

YZC51 发表于 2020-3-14 22:32
谢谢老师花花鼓励！

1、 d(Arr(i, 1)) = ""

对不起，就只有一朵花了。嗯，测试感觉此函数非常强大！

YZC51

浮生若梦~~~ 发表于 2020-3-14 22:53
造福好多人,365是好多人用不起,旧版本又没,解决一个问题要写好长的公式,对会的人还好说,小白们就...老师 ...

不客气！区区一个小小函数，老师过奖啦！

YZC51

WYS67 发表于 2020-3-14 22:58
对不起，就只有一朵花了。嗯，测试感觉此函数非常强大！

没关系！不客气！老师过奖啦！