關(guān)注公眾號：萬能的Excel? ? ?并回復(fù)【自動求和】獲取源文件！

功能要求：

工作中常常需要統(tǒng)計表格中每一項總和，人工篩選每一項總和需要耗費很大的精力

本工作簿實現(xiàn)的功能：

? ? ? ? 1、將相同ID號，相同物料的行合并

? ? ? ? 2、將同一個ID號的所有項都相加求和

?

附上代碼：

Sub test1()Dim d1 As Object, d2 As Object, arr, i As Integer, k, brrSet d1 = CreateObject("scripting.dictionary")Set d2 = CreateObject("scripting.dictionary")Set d3 = CreateObject("scripting.dictionary")arr = Range("c4").CurrentRegionFor i = 5 To UBound(arr)If Len(arr(i, 3)) ThenIf d1(arr(i, 3)) = "" Then ?'如果是否有數(shù)據(jù)d1(arr(i, 3)) = arr(i, 9) '如果該關(guān)鍵字第一次出現(xiàn)d3(arr(i, 3)) = arr(i, 5)'MsgBox "關(guān)鍵字" & arr(i, 1) & Chr(13) & "條目" & d(arr(i, 1))Else '當(dāng)該關(guān)鍵字出現(xiàn)了第二次以上d1(arr(i, 3)) = d1(arr(i, 3)) + arr(i, 9) '將原有的值加上新出現(xiàn)的值保存起來'MsgBox "關(guān)鍵字" & arr(i, 1) & Chr(13) & "條目" & d(arr(i, 1))End IfEnd IfNext if = 5For Each k In d1.keys '遍歷每一個關(guān)鍵字Cells(f, "l") = kCells(f, "m") = d3(k)Cells(f, "n") = d1(k)f = f + 1Next kf = 0End Sub

?

總結(jié)

以上是生活随笔為你收集整理的Excel表格制作教程-合并相同项，并将对应的值求和的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。