Sub？個人電腦()
暗淡？d，？k
設置？d？=?CreateObject("腳本。字典》)
暗淡？rg？作為？範圍，？c，？r，？n？作為？龍，？Wn？Sn？作為？線
Wn？=?此工作簿。姓名:？Sn？=?ActiveSheet。名字
練習冊。增加
用什麽？工作簿(Wn)。張(序號)
。行數(1)。復制？ActiveWorkbook。活動工作表.行(1)
為了什麽？c？=?3?去哪？四
r？=?。單元格(行。數數，？c)。結束(xlUp)。排
為了什麽？每個？rg？在？。細胞(4，？c)。調整大小(r？-?3)
如果？rg。價值？& lt& gt？""?然後呢？d(rg。值)？=?d(rg。值)？+?1
然後
r？=?ActiveWorkbook。ActiveSheet .單元格(行。數數，？c)。結束(xlUp)。行:？n？=?1
為了什麽？每個？k？在？鑰匙
n？=?n？+?1
ActiveWorkbook。ActiveSheet.Cells(n，c)。價值？=?k？& amp？"-"?& amp？d(k)
然後
d.全部刪除
然後
結束？隨著
設置？d？=?沒有任何東西
結束？潛水艇