Deleting Rows

[David Bateman]

What would be the proper code to remove all rows in a workbook except the
rows that counta = 11 or counta = 4. Thank you in advance

 

[Tom Ogilvy]

Dim lastrow as Long, i as long
dim cnt as long
lastrow = cells(rows.count,1).End(xlup).row
for i = Lastrow to 1 step - 1
cnt = application.CountA(cells(i,1).EntireRow)
if cnt <> 11 and cnt <> 4 then
cells(i,1).Entirerow.Delete
end if
Next

 

[KL]

or I guess:

Dim LastRow As Long, i As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = LastRow To 1 Step -1
Select Case Application.CountA(Rows(i))
Case 11, 4
Case Else: Rows(i).Delete
End Select
Next i

Regards,
KL