Dim d，arr，i & ampk & amp定義變量
Set d = createobject（“腳本。字典）‘創建字典。
K =單元格（行。數數，4）。結束（三）。row-1‘變量賦值。
arr = cells（2，4）。調整大小（k，3）。“值”數組賦值。
對於I = 1到k‘1到k周期
if arr（I，1）& lt；& gt““那麽‘如果它不是空的。
如果d . exists（arr（I，1））如果字典中存在arr（I，1）。
D（ARR（I，1））= D（ARR（I，1）+ARR（I，3）‘ARR（I，1）加上ARR（I，3）。
else:d . addarr（I，1），arr（I，3）‘創建arr（I，1）作為字典鍵值，同時將arr（I，3）作為字典項值。
如果…就會結束
如果…就會結束
接下來我
k =單元格（行。計數，1）。結束（三）。行- 1
arr =單元格（2，1）。調整大小（k，2）。價值
對於i = 1到k‘‘這裏基本上和之前壹樣。
如果d .存在（arr（I，1）），則
如果d（arr（I，1））= arr（I，2）則
d . remove arr（I，1）‘在滿足條件後取消字典中鍵值為arr（I，1）的內容。
如果…就會結束
如果…就會結束
接下來我
MsgBox IIf（d . Count & gt；0，“如果已發行銀行編號的金額不正確:“_
& ampjoin（d . keys，“，““，“發票金額正確“）
設置d =無
末端接頭