Thread: a function that deletes all rows with no value in a certain column?
View Single Post
 
Old 06-08-2013, 06:50 AM
dunndealpr dunndealpr is offline Windows 7 64bit Office 2007
Novice
  
Join Date: Aug 2011
Posts: 8
dunndealpr is on a distinguished road
Default
Hey Bob. Someone shot me this VBA script. Works beautiful.

Sub DeleteBlankRows()
Dim r As Long
For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(r, 5) = "" Then Rows(r).Delete
Next r
End Sub
Reply With Quote