修改後的程序代碼，如果不怕慢，請使用:
選項？明確的
Sub？匹配關鍵字()
暗淡？db，？啊？我，？j，？k，？n，？st？作為？工作表
設置？db？=?CreateObject("腳本。字典》)
設置？st？=?此工作簿。工作表(“關鍵字”)
arr？=?聖細胞(7，8).當前區域
為了什麽？我？=?2?去哪？欠奉
為了什麽？j？=?2?去哪？UBound(arr，2)
k？=?Trim(arr(i，j))
如果？k？& lt& gt？""?然後
db(k)？=?arr(我，？1)
結束？如果
下壹個？j
下壹個？我
設置？st？=?活性薄片
arr？=?聖細胞(1，1).當前區域
n？=?欠奉
雷迪姆？rlt(2？去哪？n，？1?去哪？1)
為了什麽？我？=?2?去哪？n
為了什麽？每個？k？在？db。鍵
如果？InStr(arr(i，7),?k)？& gt？0?然後呢？rlt(我，？1)?=?rlt(我，？1)?& amp？db(k)？& amp？"?"
下壹個？k
下壹個？我
聖細胞(2，6).調整大小(n？-?1,?1)?=?rlt
MsgBox？"比賽結束。"
結束？潛水艇