Dim d，arr，i & amp，k & amp定義變量
Set d = createobject("腳本。字典")'創建壹個字典。
K =單元格(行。數數，4)。結束(3)。row-1 '變量賦值。
Arr = cells (2，4)。調整大小(k，3)。“value”數組賦值。
對於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)。結束(3)。第65438行+0
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，"如果發行銀行號金額不正確:" _
& amp加入(d.keys，“，”，“發票金額正確”)
設置d =無
末端接頭