暗淡？str？作為？字符串，？rng？作為？範圍
暗淡？dic？作為？對象，？瓦爾迪奇？作為？目標
str？=?“1，2，5，8，11，14，19”“‘下面是條件。不要犯錯誤。
設置？dic？=?CreateObject(" scripting . dictionary ")
設置？瓦爾迪奇？=?CreateObject(" scripting . dictionary ")
臨時工？=?拆分(字符串，"、")
為了什麽？我？=?0?去哪？欠平衡(溫度)
valDic(temp(i))？=?""
然後
用什麽？活性薄片
設置？rng？=?。使用範圍
arr？=?皇族永不言棄（Royal Never Give Up 電子競技俱樂部）
為了什麽？我？=?LBound(arr，1)?去哪？UBound(arr，1)
如果？不是嗎？CellNeedRemove(arr，瓦爾迪奇？我)？然後呢？方法二:把這行改成？如果？不是嗎？RowNeedRemove(arr，valdic，I)？然後
dic(壹)？=?""
結束？如果
然後
如果？dic。數數？& lt？UBound(arr，1)?-?LBound(arr，1)?然後
rng。清除內容
如果？dic。數數？=?0?然後呢？退出？潛水艇
暗淡？新陣列()
雷迪姆？newArray(1？去哪？dic。數數，？1?去哪？UBound(arr，2))
暗淡？n？作為？整數
n？=?1
為了什麽？每個？rowNum？在？dic.keys
為了什麽？我？=?LBound(arr，2)?去哪？UBound(arr，2)
newArray(n，我)？=?arr(rowNum，我)
然後
n？=?n？+?1
然後
rng。單元格(1，？1).調整大小(dic。數數，？UBound(arr，2)?-?LBound(arr，2))?=?新陣列
結束？如果
結束？隨著
結束？潛水艇
私人？功能？CellNeedRemove(ByVal？啊？ByVal？dic，？ByVal？rowIndex)？作為？布爾代數學體系的
為了什麽？我？=?LBound(arr，2)?去哪？UBound(arr，2)
如果？dic.exists(arr(rowIndex，我)？& amp？"")?然後
CellNeedRemove？=?真實的
退出？功能
結束？如果
然後
CellNeedRemove？=?錯誤的
結束？功能
私人？功能？RowNeedRemove(ByVal？啊？ByVal？dic，？ByVal？rowIndex)？作為？布爾代數學體系的
為了什麽？我？=?LBound(arr，2)?去哪？UBound(arr，2)
如果？dic.exists(arr(rowIndex，我)？& amp？"")?然後
RowNeedRemove？=?錯誤的
退出？功能
結束？如果
然後
RowNeedRemove？=?真實的
結束？功能