如图：做成图2的最终效果，有没有一瞬间快速求和的方式

zhangze1990

如图：做成图2的最终效果，有没有一瞬间快速求和的方式

tudarong

这个用函数公式就可以快速求和，建议去函数公式版块发帖

chaohuahch

如下，请测试

zhangze1990

chaohuahch 发表于 2018-7-15 22:17
如下，请测试

谢谢大神，受教了。

zhangze1990

chaohuahch 发表于 2018-7-15 22:17
如下，请测试

大神，打扰一下，虽然你做的可以实现。但是有一个问题。

比如：有的列涉及到小数点，1078.2  但最终计算是 1078   直接四舍五入了，我不希望四舍五入怎么办。。。下面是你原来给我的答案

Sub test()
  
  Application.ScreenUpdating = False
  Dim nRow%, arr, brrO, i%, m%, m1%, m2%
  nRow = Cells(Rows.Count, 1).End(3).Row + 1
  arr = Range("a1:c" & nRow)
  ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
  For i = 2 To UBound(arr)
    If Not arr(i, 1) = "" Then
       m = m + arr(i, 1): m1 = m1 + arr(i, 2): m2 = m2 + arr(i, 3)
    Else
      arr(i, 1) = m / 2: arr(i, 2) = m1 / 2: arr(i, 3) = m2 / 2
      m = 0: m1 = 0: m2 = 0
     End If
  Next i
   Range("a1:c" & nRow) = arr
   Application.ScreenUpdating = True
  
  End Sub

chaohuahch

zhangze1990 发表于 2018-7-25 16:31
大神，打扰一下，虽然你做的可以实现。但是有一个问题。

比如：有的列涉及到小数点，1078.2  但最终计 ...

这句代码修改一下就可以。
i%, m%, m1%, m2% 修改一下  i%, m#, m1#, m2#