如何对这种同一列的不连续单元格进行求和,空值定位求和的数据都是在下面合计,我想在上面合计怎么做呢?

如何对这种同一列的不连续单元格进行求和,空值定位求和的数据都是在下面合计的,我想在上面合计怎么做呢?

用VBA,选好数据,自动填写求和公式。

代码

Sub 空格求和()

Dim mr As Range, m()

Set mr = Selection

n = mr.Count

ReDim m(1 To n)

For i = 1 To n

If mr.Cells(i).Text = "" Then

j = j + 1

m(j) = i

End If

Next i

For i = 1 To j

If i = j Then

mr.Cells(m(i)).FormulaR1C1 = "=SUM(R[1]C:R[" & n - m(i) & "]C)"

mr.Cells(m(i)).Font.Color = -16776961

Else

mr.Cells(m(i)).FormulaR1C1 = "=SUM(R[1]C:R[" & m(i + 1) - m(i) - 1 & "]C)"

mr.Cells(m(i)).Font.Color = -16776961

End If

Next i

End Sub

温馨提示:答案为网友推荐,仅供参考
第1个回答  2019-07-24

如图选中数据区域,ctrl+G定位空值,编辑栏输入公式:

=SUMPRODUCT(OFFSET(A2,,,MATCH(1,ISFORMULA(A2:A$17)+(A2:A$17=""),)-1,1))

ctrl+回车

第2个回答  2019-07-24
用SUM函数,求和区域你自己选择或输入就是呀,这个区域可以是这个单元格上下左右,甚至另外一个表都可以。比如在A1输入公式=SUM(A2:A5),就会在A1单元格显示A2到A5的和。