求一个：个数统计的自定义函数

zhangstone

各位高手：

    你们好！
    我想求一个：个数统计的自定义函数，请见附件！

夏天的风shh4695

rgn 为所求的单元格，n是向上扩展的行数

Function kk(rgn As Range, n)
Dim r1 As Range, r2 As Range
arr = Split(rgn, ",")
ReDim crr(0 To UBound(arr))
Set r1 = rgn.Offset(-n, -1).Resize(n, 1)
For j = LBound(arr) To UBound(arr)
    For Each r2 In r1
        brr = Split(r2, ",")
        For i = LBound(brr) To UBound(brr)
            If brr(i) = arr(j) Then crr(j) = crr(j) + 1
        Next i
    Next r2
Next j

For j = LBound(crr) To UBound(crr)
    kk = kk & "," & IIf(crr(j) = "", 0, crr(j))
Next j
kk = Mid(kk, 2, 100)
End Function

zhangstone

夏天的风shh4695：
非常感谢您出手，我测试了一下，结果OK！但是我总感觉少了一个参数（针对：数据源的参数）

zhangstone

夏天的风shh4695：

您好！

还有一个问题是，我如果对数据源中某个字符串里的数据作出修改，结果列的公式没有自动修改，还需要重新手动调整。

剑指E

zhangstone

剑指E：

非常感谢您的出手帮助！这就是我想要的结果。另外十分感谢：夏天的风shh4695

夏天的风shh4695

稍稍做了改进，如有需要可以参考。

zhangstone

夏天的风shh4695：
非常感谢您的帮忙！