GBKEE

¦^´_ 1# errol.sun

1. Public Sub wolf()
   
2.     Dim I As Integer
   
3.      With Sheet1.UsedRange
   
4.         For I = .Rows.Count To 1 Step -1
   
5.             If Application.CountA(.Rows(I)) <> .Columns.Count Then .Rows(I).Delete
   
6.         Next
   
7.     End With
   
8. End Sub
   
9. 
   
10. Sub Ex()
    
11.      With Sheet1.UsedRange
    
12.         .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
13.     End With
    
14. End Sub

½Æ»s¥N½X