VBA如何统计同一类型的数据的总和

来源：互联网发布：淘宝关于退货运费规则编辑：程序博客网时间：2024/06/06 03:40

今天是2014-11-01 是周末，忙了一周了，终于可以闲下来了，想起最近工作用到的VBA的一个场景，结合VBA的数组，所以就想试试看，结果还好，出来了，这年头，又玩起了VB了，经过多时才接受了VB的种语法风格，闲话不说，进入正题

比如如上的数据，我现在想统计出qqq所的总和是多少？ ee的总和是多少等等，现数据量小，可以考虑手动统计，那如果是上千条或上万条数据该怎么办呢，答案肯定是需要VBA了。VBA的代码如下（由于代码很简单，所以不做详述，拿去就可以用）：

Sub count_test()    Dim i As Integer    Dim arrs() As Variant    i = 1    irow = UsedRange.Rows.Count    icolumn = UsedRange.Columns.Count    ReDim Preserve arrs(1 To irow, icolumn - 1)    For j = 1 To irow Step 1        strname = Cells(j, 1)        isfind = False        k = 0        For k = 1 To irow            If arrs(k, 0) = strname Then                isfind = True                Exit For            End If        Next k        If isfind Then            arrs(k, 1) = arrs(k, 1) + Cells(j, 2)        Else            arrs(i, 0) = Cells(j, 1)            arrs(i, 1) = Cells(j, 2)            i = i + 1        End If    Next j            For k = 1 To irow        If arrs(k, 0) <> "" Then           Cells(k, 4) = arrs(k, 0)           Cells(k, 5) = arrs(k, 1)        End If    Next k    End Sub

执行这段代码后，结果就出来了：

好了，准备关电脑，出去玩了，哈哈。。。。。

0 0