单元格内用逗号隔开的数字 求和方法

guoziang1989

如图，通过自定义函数提取表内与王志兰对应的第三列数据，以逗号分隔，求使其相加求和的方法。
该自定义函数是我从网上找的，大侠们要是能改一下，直接在里面相加就好了，要是没有的话求一个能把单元格内求和的方法。


Function Nlookup(rg, rgs As Range, L As Integer, M As Integer)

Dim arr1, ARR2, 列数

Dim R, n, K, X, cc, sr As String

arr1 = rg.Value

ARR2 = rgs

If VBA.IsArray(arr1) Then

For Each R In arr1

If R <> "" Then

cc = cc & R

列数 = 列数 + 1

End If

Next R

Else

cc = arr1

End If

If M > 0 Then '非查找最后一个

For X = 1 To UBound(ARR2)

sr = ""

If 列数 > 1 Then

For q = 1 To 列数

sr = sr & ARR2(X, q)

Next q

Else

sr = ARR2(X, 1)

End If

If sr = cc Then

K = K + 1

If K = M Then

Nlookup = ARR2(X, L)

Exit Function

End If

End If

Next X

ElseIf M = -1 Then '查找所有值

For X = 1 To UBound(ARR2)

sr = ""

If 列数 > 1 Then

For q = 1 To 列数

sr = sr & ARR2(X, q)

Next q

Else

sr = ARR2(X, 1)

End If

If sr = cc Then

Nlookup = Nlookup & "," & ARR2(X, L)

End If

Next X

Nlookup = Right(Nlookup, Len(Nlookup) - 1)

Exit Function

Else '查找最后一个

For X = UBound(ARR2) To 1 Step -1

sr = ""

If 列数 > 1 Then

For q = 1 To 列数

sr = sr & ARR2(X, q)

Next q

Else

sr = ARR2(X, 1)

End If

If sr = cc Then

Nlookup = ARR2(X, L)

Exit Function

End If

Next X

End If

Nlookup = ""

End Function

micch

如果1,3,4,7是从表格中合并而来，那可以在合并的同时把和就求了吧

liulang0808

建议楼主上传模拟附件，结合附件说明下需求吧
便于大家解答

guoziang1989

micch 发表于 2019-2-11 18:47
如果1,3,4,7是从表格中合并而来，那可以在合并的同时把和就求了吧

我不懂vba。。。。那个函数是网上找的

guoziang1989

liulang0808 发表于 2019-2-11 18:48
建议楼主上传模拟附件，结合附件说明下需求吧
便于大家解答

以上传大侠

micch

guoziang1989 发表于 2019-2-11 18:58
我不懂vba。。。。那个函数是网上找的

1. =SUMIF(A:A,E1,C:C)

复制代码

你这个有意思，是要求和不用sumif，用自定义函数？

guoziang1989

micch 发表于 2019-2-11 19:05
你这个有意思，是要求和不用sumif，用自定义函数？

原来如此  多谢大哥

liulang0808

guoziang1989 发表于 2019-2-11 19:03
以上传大侠

看了附件，感觉楼主用sumif函数就可以吧
另外就是在保留楼主原函数的情况，增加一个新函数调用原函数
新函数如下：
Function New_Nlookup(rg, rgs As Range, L As Integer, M As Integer)
    str1 = Nlookup(rg, rgs, L, M)
    If Len(str1) = 0 Then
        New_Nlookup = 0
    Else
        New_Nlookup = Application.Evaluate(Join(Split(str1, ","), "+"))
    End If
End Function
供楼主参考。。。。。。

guoziang1989

liulang0808 发表于 2019-2-11 19:15
看了附件，感觉楼主用sumif函数就可以吧
另外就是在保留楼主原函数的情况，增加一个新函数调用原函数
...

感谢版主        ，问题解决