需求說(shuō)明

?

在日常合同管理工作中，經(jīng)常遇見(jiàn)按公司匯總求和金額的問(wèn)題，今天我們來(lái)解決關(guān)于分列多條件匯總的問(wèn)題，即根據(jù)合同金額，以及收錄金額和是否完成的標(biāo)識(shí)，來(lái)匯總計(jì)算得到合同金額，已錄收金額，未錄收金額，其他金額。

本案例沒(méi)使用VBA之前我每次做一次表要30分鐘，隔幾天就要做一次,vba代碼寫(xiě)完后每次一秒完成統(tǒng)計(jì)。

這個(gè)案例我按老師的提示，在還不是很熟悉字典求和的情況下，只用了字典去重，然后結(jié)合vlookup和sum函數(shù)，也在vba里實(shí)現(xiàn)了這個(gè)一鍵匯總，希望各位新手也能學(xué)會(huì)！

知識(shí)點(diǎn)：

• VBA字典去重

• ExcelVBA單元格循環(huán)

• Vba中使用公式

由于本文圖片尺寸較大 請(qǐng)大家盡量收藏轉(zhuǎn)發(fā)后 到電腦端大屏查看學(xué)習(xí)，效果更佳！
如數(shù)據(jù)下圖：

結(jié)果如下：

下面我們講一講基本步驟

循環(huán)數(shù)據(jù)區(qū)公司裝入字典去重

1 、首先需要定義一些變量和字典對(duì)象，和大家一樣，最開(kāi)始這個(gè)字典對(duì)象很長(zhǎng)，總是記不住，不過(guò)還好有工具可以幫助我們快速輸入，安裝VBA代碼助手插件（vbayyds.com）后，只需要輸入 dimd四個(gè)字母，然后空格就會(huì)得到提示 按下Tab鍵即直接輸入字典的定義， 即使是第一天學(xué)vba的同學(xué),也不怕記不住代碼了!

2、 寫(xiě)循環(huán)語(yǔ)句，循環(huán)最大行，使用VBA代碼助手輸出字典單元格行循環(huán) ,這里從第3行開(kāi)始循環(huán) ,輸入Fori 空格即可得到完整提示，按下Tab鍵就可以直接輸入3行代碼

3 、將數(shù)據(jù)源的第3列裝入字典的關(guān)鍵字key ，條目為空， 得到項(xiàng)目名稱的不重復(fù)值

并裝置輸出到單元格

循環(huán)字典的關(guān)鍵字調(diào)用工作表函數(shù)完成匯總

4、接下來(lái)，循環(huán)字典的個(gè)數(shù)取出關(guān)鍵字（項(xiàng)目名稱）， 利用 VLookup函數(shù)，得到合同金額 用SumIfs函數(shù) ，得到已錄收金額，未錄收金額，其他金額。

?

當(dāng)然這個(gè)問(wèn)題還有更好的解決方法，就是直接使用數(shù)組字典求和，不過(guò)新手的話，用公式可能更好理解！

案例文件下載地址

請(qǐng)關(guān)注微信公眾號(hào)EXCEL880 公眾號(hào)主頁(yè)回復(fù)25202

好了，今天有關(guān)在Excel中分列匯總的問(wèn)題便介紹到這，大家趕緊實(shí)際操作練習(xí)一下吧，有不懂的問(wèn)題可以留言問(wèn)小編呦！感謝支持Excel880工作室，還請(qǐng)多多轉(zhuǎn)發(fā)，持續(xù)關(guān)注我們呀！

特別推薦使用VBA代碼助手，再也不怕記不住代碼

VBA代碼助手下載地址

最后，像大家推薦鄭老師的VBA代碼助手（下載地址vbayyds.com）

只需輸入關(guān)鍵字，就能將收藏過(guò)的代碼整個(gè)帶出來(lái)，太贊了

比如上面代碼中的字典 數(shù)組輸出之類都只需要打幾個(gè)字就出來(lái)

我上面的整段代碼 也可以收藏起來(lái) 下次類似問(wèn)題

輸入 考勤 2個(gè)字 就可以調(diào)出完整代碼了 然后tab鍵即可輸入