[已解决]通过一个单元格内用逗号分割的编号来求编号对应数值的和

henry99a

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2017-4-13 17:17

可以啊，'自定义函数,rg选择A2单元格，即要拆分的单元格，rng选择要引用的区域即可，具体看图

1. '自定义函数,rg选择A2单元格，即要拆分的单元格，rng选择要引用的区域即可
   
2. Function Sumx(rg As Range, rng As Range) As Double
   
3.     Dim arr, arrSrc
   
4.     Dim irow%, irow_1%
   
5.     Dim temSum#
   
6.     arr = Split(Replace(rg, ",", "，"), "，")
   
7.     arrSrc = rng.Value
   
8.     For irow = 0 To UBound(arr)
   
9.         For irow_1 = 1 To UBound(arrSrc)
   
10.             If arr(irow) * 1 = arrSrc(irow_1, 1) Then
    
11.                 temSum = temSum + arrSrc(irow_1, 2)
    
12.             End If
    
13.         Next
    
14.     Next
    
15.     Sumx = temSum
    
16. End Function
    

复制代码

跳转到最佳答案楼层

Excel学徒123

可以啊，'自定义函数,rg选择A2单元格，即要拆分的单元格，rng选择要引用的区域即可，具体看图

1. '自定义函数,rg选择A2单元格，即要拆分的单元格，rng选择要引用的区域即可
   
2. Function Sumx(rg As Range, rng As Range) As Double
   
3.     Dim arr, arrSrc
   
4.     Dim irow%, irow_1%
   
5.     Dim temSum#
   
6.     arr = Split(Replace(rg, ",", "，"), "，")
   
7.     arrSrc = rng.Value
   
8.     For irow = 0 To UBound(arr)
   
9.         For irow_1 = 1 To UBound(arrSrc)
   
10.             If arr(irow) * 1 = arrSrc(irow_1, 1) Then
    
11.                 temSum = temSum + arrSrc(irow_1, 2)
    
12.             End If
    
13.         Next
    
14.     Next
    
15.     Sumx = temSum
    
16. End Function
    

复制代码

henry99a

Excel学徒123 发表于 2017-4-13 17:17
可以啊，'自定义函数,rg选择A2单元格，即要拆分的单元格，rng选择要引用的区域即可，具体看图
...

厉害，感谢。