設置？d？=?CreateObject（“scripting . dictionary“）
t？=?【ae2】。文本
tl？=?val（Left（t，1))
tr？=?val（Right（t，1))
為了什麽？我？=?31?去哪？四十九個
為了什麽？j？=?18?去哪？28
n？=?細胞（j，？我)。文本
如果？n？& lt& gt？""?然後
如果？（tl？+?左（n，？1))?Mod？10?=?（tr？+?右（n，？1))?Mod？10?然後
d（n）？=?d（n）？+?1
結束？如果
結束？如果
然後
然後
k？=?0
為了什麽？我？=?31?去哪？49?邁步？2
如果？單元格（1，？我）？& lt& gt？""?然後
k？=?k？+?1
結束？如果
然後
tt嗎？=?(10?-?tl）？Mod？10?& amp？(10?-?tr）？Mod？10
為了什麽？我？=?31?去哪？49?邁步？2
為了什麽？j？=?7?去哪？16
如果？細胞（j，？我)。短信？=?tt嗎？然後
如果？單元格（1，？我）？=?""?然後
單元格（1，？我）？=?k
其他
MsgBox？“xxx”
結束？如果
GoTo？xxx
結束？如果
然後
然後
xxx:
為了什麽？我？=?31?去哪？49?邁步？2
為了什麽？j？=?7?去哪？16
n？=?細胞（j，？我)。文本
如果？d .存在（n）？然後
細胞（j，？I）內飾。顏色？=?VB黃色
細胞（j，？我？+?1)?=?d（名詞）
結束？如果
然後
然後
結束？潛水艇