最近，我?guī)椭笥呀鉀Q了一項(xiàng)枯燥的歸集工作：將相同值的項(xiàng)匯集統(tǒng)計(jì)到一個(gè)單元格里面。為了完成這個(gè)看似簡(jiǎn)單的任務(wù)，我寫了一個(gè)簡(jiǎn)短的宏代碼，并經(jīng)過(guò)測(cè)試驗(yàn)證結(jié)果正確。對(duì)于有類似需求的人，本文將分享具體步驟。首先

最近，我?guī)椭笥呀鉀Q了一項(xiàng)枯燥的歸集工作：將相同值的項(xiàng)匯集統(tǒng)計(jì)到一個(gè)單元格里面。為了完成這個(gè)看似簡(jiǎn)單的任務(wù)，我寫了一個(gè)簡(jiǎn)短的宏代碼，并經(jīng)過(guò)測(cè)試驗(yàn)證結(jié)果正確。對(duì)于有類似需求的人，本文將分享具體步驟。

首先，我們需要建立一個(gè)宏文件。在2007版本的Excel中，建立宏文件的選項(xiàng)已經(jīng)取消。如果您不知道如何建立宏文件，請(qǐng)參考我的文章《如何在Excel 2007中建立宏文件》。

在建立好宏文件之后，就可以添加處理指令了。下面是具體的代碼：

```VBA

Dim r As Long, q As Long, aaa As Long

Dim bbb, ccc As String

aaa Range("A65536").End(xlUp).Row

q 1

bbb Cells(1, 1)

ccc Cells(1, 2)

For r 2 To aaa

If Cells(r, 1) <> bbb Then

Cells(q, 4) bbb

Cells(q, 5) ccc

bbb Cells(r, 1)

ccc Cells(r, 2)

q q 1

Else

ccc ccc " " Cells(r, 2)

End If

Next r

```

在將代碼錄入宏文件后，點(diǎn)擊菜單中的宏選項(xiàng)，在彈出的對(duì)話框中點(diǎn)擊執(zhí)行按鈕，運(yùn)行宏?；蛘撸梢栽诮⒑晡募r(shí)建立快捷方式，以便直接使用快捷方式運(yùn)行宏。

測(cè)試結(jié)果表明，該代碼的運(yùn)行結(jié)果正確。如下圖所示：


然而，需要注意的是，在使用該代碼進(jìn)行匯集時(shí)，需要對(duì)條件值進(jìn)行排序，即對(duì)題目中的數(shù)值項(xiàng)進(jìn)行排序。如果不對(duì)條件值進(jìn)行排序，系統(tǒng)會(huì)斷開顯示相同數(shù)值的匯集結(jié)果。

總的來(lái)說(shuō)，通過(guò)編寫一個(gè)簡(jiǎn)短的宏代碼，我們可以很輕松地將相同數(shù)值的項(xiàng)匯集到一個(gè)單元格中。這極大地減輕了朋友的工作量，同時(shí)也提高了工作效率。