單細胞之和空白細胞

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