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