在Excel中，對于龐大的數(shù)據(jù)表，我們經(jīng)常需要進(jìn)行分類匯總的操作。這些數(shù)據(jù)可能來自不同的來源或者在不同的時(shí)間段內(nèi)產(chǎn)生。如果手動(dòng)進(jìn)行分類匯總，往往會(huì)極大地消耗我們的時(shí)間和精力。因此，使用VBA編寫分類求

在Excel中，對于龐大的數(shù)據(jù)表，我們經(jīng)常需要進(jìn)行分類匯總的操作。這些數(shù)據(jù)可能來自不同的來源或者在不同的時(shí)間段內(nèi)產(chǎn)生。如果手動(dòng)進(jìn)行分類匯總，往往會(huì)極大地消耗我們的時(shí)間和精力。

因此，使用VBA編寫分類求和代碼是非常必要的。下面我們將通過一個(gè)實(shí)例來演示如何編寫運(yùn)行VBA代碼，進(jìn)行分類求和。

準(zhǔn)備工作

在Excel中，我們需要先打開“開發(fā)工具”菜單欄，然后在其工具欄中點(diǎn)擊“Visual Basic”，進(jìn)入VBA編輯界面。接著，在插入菜單欄中選擇“模塊”，彈出模塊編輯窗口。

編寫代碼

在代碼編輯窗口中，輸入以下代碼：

Sub 成績匯總()

Dim arr1()

arr Range("A2", Cells(, "F").End(xlUp))

Set d CreateObject("scripting.dictionary")

For i 1 To UBound(arr)

If d.exists(arr(i, 1)) False Then

n n 1

d(arr(i, 1)) n

ReDim Preserve arr1(1 To 6, 1 To n)

arr1(1, n) arr(i, 1)

arr1(2, n) arr(i, 2)

arr1(3, n) arr(i, 3)

arr1(4, n) arr(i, 4)

arr1(5, n) arr(i, 5)

arr1(6, n) arr(i, 6)

Else

m d(arr(i, 1))

arr1(2, m) arr1(2, m) arr(i, 2)

arr1(3, m) arr1(3, m) arr(i, 3)

arr1(4, m) arr1(4, m) arr(i, 4)

arr1(5, m) arr1(5, m) arr(i, 5)

arr1(6, m) arr1(6, m) arr(i, 6)

End If

Next

Range("A2").Resize(n, 6) (arr1)

End Sub

運(yùn)行代碼

編寫好代碼后，點(diǎn)擊工具欄中的“運(yùn)行”按鈕，即可自動(dòng)完成數(shù)據(jù)的分類匯總。平時(shí)只需錄入數(shù)據(jù)，月末只需點(diǎn)擊一次運(yùn)行按鈕，就可以輕松地將龐大的數(shù)據(jù)分類匯總成功。相比手動(dòng)操作或者用函數(shù)公式，使用VBA編寫分類求和代碼無疑是更加高效快捷的方法。

總結(jié)

本文通過一個(gè)實(shí)例向大家闡述了如何通過VBA編寫分類求和代碼。希望這篇文章可以幫助大家提高工作效率，避免重復(fù)性工作，使工作更加輕松愉快。