[已解决]怎么计数求和？

hahada

直接从H5到最后一行计数求和，有什么快的方法？
附件： 附件.rar (2.2 KB, 下载次数: 12)

2013-5-22 23:39 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-5-22 23:52

hahada 发表于 2013-5-22 23:46
现在不用筛选名称，直接所有数据计数求和

Sub 统计3()
    row1 = [A65536].End(xlUp).Row
    arr1 = Range("A5:S" & row1)
    For i = 1 To UBound(arr1)
                   cs = cs + 1
            hj = hj + arr1(i, 8)
            Next i
    [a2] = cs
    [b2] = hj
End Sub

跳转到最佳答案楼层

那么的帅

之前不是回答过了吗？

那么的帅

数组的方法最快

hahada

那么的帅 发表于 2013-5-22 23:41
之前不是回答过了吗？

现在不用筛选名称，直接所有数据计数求和

那么的帅

hahada 发表于 2013-5-22 23:46
现在不用筛选名称，直接所有数据计数求和

Sub 统计3()
    row1 = [A65536].End(xlUp).Row
    arr1 = Range("A5:S" & row1)
    For i = 1 To UBound(arr1)
                   cs = cs + 1
            hj = hj + arr1(i, 8)
            Next i
    [a2] = cs
    [b2] = hj
End Sub

as0810114

=SUM(OFFSET(H5,,,COUNT(H:H),1))  非数组