lilytracy

¦^´_ 5# luke

²M°£ªÅªí®æ¦C°Ñ¦Ò¦p¤U

1. Sub RowClear()
   
2. Dim row, i, j As Long
   
3. row = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).row
   
4. Application.ScreenUpdating = False
   
5. Range(Cells(9, 1), Cells(row, 1)).Select
   
6. For i = 9 To row
   
7. If Cells(i, 1).Value = "" And Cells(i, 3).Value = "" And Cells(i, 8).Value = "" Then
   
8.     Rows(i).Select
   
9.     Selection.Delete Shift:=xlUp
   
10.      i = i - 1
    
11.      j = j + 1
    
12.     If j = row Then
    
13.         Exit For
    
14.     End If
    
15. End If
    
16. Next
    
17. Application.ScreenUpdating = True
    
18. End Sub

½Æ»s¥N½X