以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如下列表格，怎样计算空行之间B列单元格数值的和填入C列？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128622)
--  作者：comnets
--  发布时间：2018/12/11 18:26:00
--  如下列表格，怎样计算空行之间B列单元格数值的和填入C列？
例如：
行数 A B C
1 a 1 　
2 b 2 　
3 c 1 　
4    　  (C4这里想得到B1:B3的和)
5 d 5 　
6 e 3 　
7 f 6 　
8 g 6 　
9    　  (C9这里想得到B1:B3的和)
10 h 6 　
11 i 7 　
12 　 　 (C12这里想得到B1:B3的和)
13 j 2 　
14 k 9 　
15 l 5 　
16 　 　 (C16这里想得到B1:B3的和)


AB列有内容的单元格之间的空行间隔个数是不确定的，想要在空行计算B列空行之间的和填入C列，应该怎么做？
[此贴子已经被作者于2018/12/11 18:33:48编辑过]
--  作者：有点蓝
--  发布时间：2018/12/11 19:55:00
--  
Dim sum As Integer = 0
For Each r As Row In Tables("表A").Rows
    If r.IsNull("B") Then
        r("C") = sum
        sum = 0
    Else
        sum = sum + r("B")
    End If
Next