Sub？斯特特()
開？錯誤？簡歷？然後
暗淡？噓？作為？工作表
暗淡？科爾？作為？新的？收藏品
暗淡？rng？作為？範圍，？irng？作為？範圍
暗淡？arr()，？brr()，？我& amp,?x & amp
為了什麽？每個？噓？在？工作表
如果？先令名字？& lt& gt？“第四張”？然後
為了什麽？每個？rng？在？先令範圍(" a4 "，先令單元格(行。數數，？1).結束(3))
col.Add？rng，？CStr(rng)
然後
雷迪姆？保存？arr(1？去哪？32,?1?去哪？列數)
為了什麽？我？=?1?去哪？列計數
為了什麽？x？=?2?去哪？32
設置？irng？=?先令【答:答】。Find(col(i)，？,?,?1)
如果？不是嗎？irng？是嗎？什麽都沒有？然後
arr(1，？我)？=?列(壹)
如果？arr(x，？我)？=?0?然後呢？arr(x，？我)？=?IIf(sh。細胞(irng。劃，？x)？=?"√",?1,?"0")
結束？如果
然後
然後
結束？如果
然後
開？錯誤？GoTo？0
雷迪姆？brr(1？去哪？伯爵上校？1?去哪？2)
為了什麽？我？=?1?去哪？UBound(arr，2)
為了什麽？x？=?2?去哪？欠奉
brr(我，？1)?=?arr(1，？我)
brr(我，？2)?=?arr(x，？我)？+?brr(我，？2)
然後
然後
範圍(“a3”)。調整大小(UBound(brr)，？2)?=?壓力感受器反射反應
結束？潛水艇