設置？d？=?CreateObject（“scripting . dictionary“）
n？=?單元格（行。數數？1).結束（三）。排
arr？=?範圍（“A6:S”？& amp？n)
範圍（“A6:S”？& amp？n)。清除內容
範圍（“A6:S”？& amp？n)。NumberFormatLocal？=?"@"
k？=?1
為了什麽？我？=?1?去哪？n？-?五
如果？arr（我，1)?& lt& gt？""?然後
如果？d . exists（arr（I1))?然後
為了什麽？j？=?2?去哪？19
arr（d）（arr（I，1)),?j）？=?arr（d）（arr（I，1)),?j）？& amp？arr（我，j)
然後
arr（我，1)?=?""
其他
d（arr（I，1))?=?k
如果？k？& lt& gt？我？然後
為了什麽？j？=?1?去哪？19
arr（k，j）？=?arr（我，j)
然後
arr（我，1)?=?""
結束？如果
k？=?k？+?1
結束？如果
結束？如果
然後
為了什麽？我？=?1?去哪？k？-?1
為了什麽？j？=?2?去哪？19
如果？arr（我，j）？比如？"*[0-9]*"?然後
t？=?""
為了什麽？l？=?1?去哪？len（arr（I，j）
tmp？=?mid（arr（I，j）？l？1)
如果？InStr（t，tmp）？=?0?然後呢？t？=?t？& amp？終端監督程式（Terminal Monitor Program的縮寫）
然後
arr（我，j）？=?t
結束？如果
下壹個？j？我
範圍（“A6:S”？& amp？k？+?4)?=?arrive）
結束？潛水艇