將xRow設為整數
將I設為整數
xRow = Range（“b 65536“）。結束（xlUp）。排
對於i = 2至xRow
對於j = i + 1至xRow
如果單元格（j，2）=單元格（I，2），則
Range（單元格（j，1），單元格（j，256））。
j = j - 1
xRow = xRow - 1
如果…就會結束
然後
末端接頭
在“工作表”選項卡上單擊鼠標右鍵，輸入上述代碼，然後運行代碼或宏“刪除重復行”。有缺陷，圖號壹樣就刪，圖號壹樣號不壹樣就刪。