单细胞和空白单元格

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