表格操作系列——对表格或数组进行行或列求和汇总

最新推荐文章于 2022-11-13 21:53:10 发布

w_dexu

最新推荐文章于 2022-11-13 21:53:10 发布

阅读量712

点赞数 1

分类专栏：函数 VBA 表格文章标签： vba

本文链接：https://blog.csdn.net/w_dexu/article/details/107911662

版权

本文介绍如何使用VBA代码对表格或数组进行行或列的求和汇总，适用于报表处理中的数据计算，提供了函数代码、数据表样例及调用示例。

摘要由CSDN通过智能技术生成

表格操作系列

五、对表格或数组进行行或列求和

在做报表时，经常会需要对取得的数据进行行或列的求和汇总操作，下面的代码可以完成对数组的行或列的求和操作，也适用于对表格的指定区域进行求和汇总。

函数代码

Public Function SumArrRow(Arr, 列, Optional WithArr As Boolean = True)
'默认带数组数据
Dim i As Integer
Dim j As Integer
Dim sp() As String
Dim dic As Object
Dim LB As Integer
Dim UB As Integer
Dim UB2 As Integer
Dim tmp()
Dim Rtmp()

LB = LBound(Arr)
UB = UBound(Arr)
UB2 = UBound(Arr, 2)
    Set dic = CreateObject("Scripting.Dictionary")
    dic.CompareMode = vbTextCompare        '采用文本的比较方式，不分大小写
    For i = LB To UB
        dic(Arr(i, LB)) = i '整理列字段的列数
    Next
    
    If WithArr Then
        ReDim tmp(LB To UB, LB To UB2 + 1)
        For i = LB To UB
            For j =