Sub？AA（）
暗淡？我%，？j%，？行數%，？k%？將四個變量定義為整數類型。
暗淡？啊，啊？brr（1？去哪？50,?1?去哪？2)?定義兩個數組，其中Brr是二維的（1到50行和1到2列）。
暗淡？d？作為什麽？新的？字典？定義d為字典。
我？=?範圍（“A”？& amp？成排。數數）。結束（xlUp）。劃？“I”的值是a列中最後壹行的行號。
Arr？=?範圍（“A1:B“？& amp？我）？將A1添加到B列最後壹行的該區域中，並將數組Arr賦值。
為了什麽？j？=?1?去哪？UBound（Arr）？循環，j從1到Arr數組的下標-即從第壹行到最後壹行。
如果？存在（Arr（j，？1))?然後呢？如果字典中有關鍵字Arr（j，1）-也就是說，字典中有第j行和第1列（A列第j行的單元格）的關鍵字。
多少排？=?d（Arr（j，1))?行數等於相應的項目值
Brr（行數，2)?=?Brr（行數，2)?+?arr（j，2)?Brr數組的行“行數”和列2中的值等於自累計Arr（j，？2）——b列J行單元格的值
不然呢？否則。
k？=?k？+?1?k增加了1
d（Arr（j，1))?=?k？對應於‘Arr（j，1）的項目值等於k值。
brr（k，1)?=?arr（j，1)?Brr的第k行第1列的值等於Arr（j，？1）-A列j行。
brr（k，2)?=?arr（j，2)?Brr的第k行第2列的值等於Arr（j，？2）-b列的j行
結束？如果？結束條件判斷
下壹個？j？下壹個周期
範圍（“G2”）。調整大小（k？-?1,?2)?=?Brr？G2單元格，擴展區域為k-1行2列；將Brr數組的值寫入該區域。
結束？潛水艇