VBA怎样统计同一类型的数据的总和

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

watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvdHF0aWhpaGM=/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt="">

比方如上的数据。我如今想统计出qqq所的总和是多少？ ee的总和是多少等等，现数据量小。能够考虑手动统计，那假设是上千条或上万条数据该怎么办呢。答案肯定是须要VBA了。VBA的代码例如以下（因为代码非常easy，所以不做详述。拿去就能够用）：

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

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

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