Sub？刪除（）
設置？regex？=?CreateObject（“VBScript。正則表達式“）
regex。格局？=?"["?& amp？替換（【c5】，？"/",?"|")?& amp？"]"
設置？Rng？=?【e9:z20】
arr？=?Rng。價值
為了什麽？我？=?1?去哪？欠額
為了什麽？j？=?1?去哪？UBound（arr，2)
如果？regex . test（arr（I，j）？然後呢？arr（我，j）？=?空的
然後
Rng。價值？=?arrive）
結束？潛水艇