单细胞之和空白细胞

Question

我使用该宏总结的各个数字，用逗号分隔，在单细胞

Function Individual(R As Range) As Double 
    Individual = Evaluate(Replace(R.Value, ",", "+")) 
End Function 

功能看起来像这样=单独（XY），其中XY是“源极”个人数字被写入的单元格。

如何修改宏将“源”单元格为空时将0写入“目标”单元格？

Answer 1

Function Individual(R As Range) As Double 
    if len(r.value) > 0 then 
    Individual = Evaluate(Replace(R.Value, ",", "+")) 
    else 
    Individual = 0 
    end if 
End Function