[已解决]空白行求和

wgavin

空白行求和，做到像B列的公式一样，因为还有很多列求和，现在B列是一个一个加的，太麻烦了

最佳答案

月排行榜 / 总排行榜

高

2017-9-29 09:38

仅供参考,发现删除了其他列的数据,其实能操作,只是动画太大就传不上去了.

跳转到最佳答案楼层

MRnightf

做个样子，都不知道你想弄成什么样子

cabcyvr

=SUM(IF((A1:A10000<>"")*(A1:A10000="数值"),B1:B10000))  数组
或者
=SUM(IF((A1:A10000<>"")*(A1:A10000<>"数值"),B1:B10000)) 数组

0126

=IF(AND(C4="",C5<>""),COUNTIF($B5:B$3402,1)-SUM($E6:E$3403),"")
=IF(AND(C4="",C5<>""),ROW(),"")
不知楼主是这个意思不

大灰狼1976

你的意思是每个“数值”单元格的旁边都加上SUM公式？
用VBA简单一点。

wgavin

是的，这样的话，我后面还有很多列求和，都是对应数值这一行的

大灰狼1976

Sub aaa()
Dim rng As Range, i&, r&, r1&, s$
Set rng = Columns(1).Find("数值")
s = rng.Address
r = rng.Row
r1 = r + rng.CurrentRegion.Rows.Count - 1
rng.Offset(, 1) = "=sum(b" & r + 1 & ":b" & r1 & ")"
Do
  Set rng = Columns(1).FindNext(rng)
  r = rng.Row
  r1 = r + rng.CurrentRegion.Rows.Count - 1
  rng.Offset(, 1) = "=sum(b" & r + 1 & ":b" & r1 & ")"
Loop Until rng.Address = s
End Sub

wgavin

就是这样的，从B列开始每一列都求和，每个数值行都对底下的数值求和

MRnightf

wgavin 发表于 2017-9-27 14:48
就是这样的，从B列开始每一列都求和，每个数值行都对底下的数值求和

用sum我可能实现不了，你把你所有想要做成型的模板发一下，数据50行就行，多了也没用，在出公式结果的地方标记颜色，和其他注意的，你这一次次发，什么时候能完

大灰狼1976

你之前给的示例是各个数据区中间有空行的，现在没有空行了，也就是说代码全部要重新做，
这不是浪费大家的时间嘛。