前几天,有人在群里发起了一期Excel练手题,这道题,难度中等偏上,解决方法多样,是最能体现Excel综合水平的一道题。
题目要求:计算每个单元格中数字的合计。如下图所示:
这里用VBA的方法,来解决这个问题,有兴趣的朋友可以自行理解。下面仅作参考,当然这段代码还可以写成自定义函数的形式。
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文件在下方下载:↓↓↓
还没有评论,来说两句吧...