数组某列中部份求合数？

61866985

vbee

再定义一个区域可以方便求和，用数组有点脱裤子放屁的感觉

jiangxiaoyun

s = Application.Sum(Application.Index(arr, , 2))

jiangxiaoyun

61866985

jiangxiaoyun 发表于 2018-6-12 08:51
s = Application.Sum(Application.Index(arr, , 2))

这样写，只能第2列全部数求和呀（B2至B15）
要求是第2列第2格至第10格的合计（B2至B10）

61866985

vbee 发表于 2018-6-12 08:30
再定义一个区域可以方便求和，用数组有点脱裤子放屁的感觉

有些情况下，再定义区域会比较麻烦

jiangxiaoyun

61866985 发表于 2018-6-12 15:30
这样写，只能第2列全部数求和呀（B2至B15）
要求是第2列第2格至第10格的合计（B2至B10）

哦，没看清楚。
不过.....不允许用循环......
你是纯粹没事找事做。
早知道不回答了。浪费我时间于无意义的事情上。

61866985

jiangxiaoyun 发表于 2018-6-12 15:42
哦，没看清楚。
不过.....不允许用循环......
你是纯粹没事找事做。

有时候编码一个系统时，会经常用到，如果有这功能的代码，就可以省很多时间，而且代码比较简洁！

YZC51

请参考
Function SZSUM(HZ, x, y,z) '数组求和算法
    For i = x To y
        SZSUM = SZSUM + HZ(i, z)
    Next
End Function

Sub ss()
arr = [A1:B15]
Debug.Print SZSUM(arr, 2, 10,2)
End Sub
不用循环，这样没有通用性！！！
Function SZSUM(HZ, 10, y) '数组求和算法
    SZSUM =  HZ(1, y)+HZ(1, y)+HZ(2, y)+HZ(3, y)+HZ(4, y)+HZ(5, y)+HZ(6, y)+HZ(7, y)End )+HZ(8, y)+HZ(9, y)End
Function