打開您的Excel文件，按“Alt+F11”打開VBA編輯窗口，然後雙擊左邊相應的工作表，將下面的代碼粘貼到右邊的空白處。關閉VBA窗口。然後按Alt+F8打開“宏”窗口，選擇剛剛插入的宏，然後單擊“執行”。
Sub？tj()
暗淡？d，？阿達爾？EArr
設置？d？=?CreateObject("腳本。字典》)
暗淡？r，？我？作為？長的
r？=?單元格(行。數數，？“壹”)。結束(xlUp)。排
阿達爾？=?範圍(“A2”)。調整大小(r？-?1,?4)
EArr？=?範圍(“E2”)。調整大小(r？-?1,?1)
為了什麽？我？=?1?去哪？UBound(ADArr)
d(ADArr(i，1)?& amp？ADArr(我，2)?& amp？ADArr(我，3))?=?d(ADArr(i，1)?& amp？ADArr(我，2)?& amp？ADArr(我，3))?+?ADArr(我，4)
然後
為了什麽？我？=?1?去哪？超聲(EArr)
如果？d(ADArr(i，1)?& amp？ADArr(我，2)?& amp？ADArr(我，3))?& gt=?10?然後呢？EArr(我，？1)?=?“大客戶”？不然呢？EArr(我，？1)?=?“小顧客”
然後
範圍(“E2”)。調整大小(r？-?1,?1)?=?EArr
設置？d？=?沒有任何東西
結束？潛水艇