今天是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
执行这段代码后,结果就出来了:
好了,准备关电脑,出去玩了,哈哈。。。。。