最能体现你的Excel综合水平的一道题

前几天，有人在群里发起了一期Excel练手题，这道题，难度中等偏上，解决方法多样，是最能体现Excel综合水平的一道题。

题目要求：计算每个单元格中数字的合计。如下图所示：

这里用的方法，来解决这个问题，有兴趣的朋友可以自行理解。下面仅作参考，当然这段代码还可以写成自定义函数的形式。

Sub sumx()
For i = 2 To ActiveSheet.Cells(65536, 1).End(xlUp).Row
      r = Split(Cells(i, 1), ",")
      s = 0
        For j = 0 To UBound(r)
            s = Val(r(j)) + s
            Next
    Cells(i, 2) = s
Next
End Sub

案例Excel文件在下方下载：↓↓↓

VBA解决方案.xlsx