暗淡？EndRow，？ChkRow？作為？龍，？z？作為？線
做
z？=?InputBox("請選擇要刪除重復行的列"，？"刪除重復的行")
如果？z？=?""?然後呢？退出？潛水艇
開？錯誤？簡歷？然後
ChkRow？=?單元格(1，？z)。圓柱
如果？不是嗎？IsNumeric(ChkRow)？然後
MsgBox？“非法上市！”
結束？如果
循環？什麽時候？ChkRow？=?""
EndRow？=?範圍(Z？& amp？"65536").結束(xlUp)。排
為了什麽？我？=?EndRow？去哪？2?壹步？-1
為了什麽？j？=?我？-?1?去哪？1?壹步？-1
如果？範圍(Z？& amp？我)？=?範圍(Z？& amp？j)？然後呢？行(I)。刪除
然後
然後
結束？潛水艇