Dim c為整數
將r標註為整數
對於r = 1到範圍(" a65536 ")。結束(3)。排
對於c = 50到1步進-1
如果應用。worksheet function . CountIf(Rows(r)，Cells(r，c))& gt；那麽1
單元格(r，c)。刪除(xlShiftToLeft)
如果…就會結束
然後
末端接頭
復制到要執行宏的工作表，但不添加工作表對象。