Sub？Comk1()
範圍(" a2:b59999 ")。清除內容
暗淡？lngFile？作為？長的
設置？dic？=?CreateObject("腳本。字典》)
暗淡？啊？brr，？終端監督程式（Terminal Monitor Program的縮寫）
暗淡？我，？k？作為？整數
暗淡？sFile？作為？線
為了什麽？每個？Rng？在？Range("d1:d "？& amp？[d65535]。結束(3)。行)
sFile？=?sFile？& amp？"?"？& amp？皇族永不言棄（Royal Never Give Up 電子競技俱樂部）
然後
lngFile？=?自由文件
sFile？=?替換(sFile，".",?空格(1))
sFile？=?替換(sFile，",",?空格(1))
sFile？=?替換(sFile，"?",?空格(1))
sFile？=?替換(sFile，vbCrLf？空格(1))
tmp？=?拆分(sFile，空格(1))
為了什麽？我？=?1?去哪？超聲波探傷
tmp(壹)？=?Trim(tmp(i))
如果？Len(tmp(i))？然後
如果？dic。存在(tmp(i))？然後
dic。項目(tmp(i))？=?dic。項目(tmp(i))？+?1
其他
dic。補充？tmp(壹)，？1
結束？如果
結束？如果
然後
輸出結果
【a1】。調整大小(dic。算)？=?工作表功能。轉置(dic。按鍵)
[b1]。調整大小(dic。算)？=?工作表功能。轉置(dic.items)
arr？=?dic.keys
brr？=?dic。項目
為了什麽？我？=?0?去哪？dic。數數？-?1
如果？brr(i)？& gt？【c5】？然後
j？=?j？+?1
細胞(j，1)?=?arr(壹)
細胞(j，2)?=?brr(壹)
結束？如果
然後
設置？dic？=?沒有任何東西
結束？潛水艇