deleting rows with blank cells after a specified column?

  • Thread starter Thread starter MYR
  • Start date Start date
M

MYR

Hello. I have a question regarding row deletion. Is there a macro
that allows me to delete entire rows if all cells beyond a specified
column are blank?

For example, if cells in row 5 are all blank after column C, how do I
delete that entire row (and all rows like that in the entire
spreadsheet)? If there is data in any one or more cells after column
C, I do not wish to remove that row. I appreciate your help.
 
This should do it. I have included line continuatin character (space and
underscore) for one lines

Sub countcplus()
lr = Cells.Find("*", Cells(Rows.Count, _
Columns.Count), , , xlByRows, xlPrevious).Row
For i = lr To 1 Step -1
If Cells(i, Columns.Count).End(xlToLeft).Column _
< 4 Then Rows(i).Delete
Next i
End Sub
 
This should do it. I have included line continuatin character (space and
underscore) for one lines

Sub countcplus()
lr = Cells.Find("*", Cells(Rows.Count, _
Columns.Count), , , xlByRows, xlPrevious).Row
For i = lr To 1 Step -1
If Cells(i, Columns.Count).End(xlToLeft).Column _
< 4 Then Rows(i).Delete
Next i
End Sub
Click to expand...

Yes! That worked perfectly. Thanks for your time.
 
Glad to help

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)
This should do it. I have included line continuatin character (space and
underscore) for one lines

Sub countcplus()
lr = Cells.Find("*", Cells(Rows.Count, _
Columns.Count), , , xlByRows, xlPrevious).Row
For i = lr To 1 Step -1
If Cells(i, Columns.Count).End(xlToLeft).Column _
< 4 Then Rows(i).Delete
Next i
End Sub
Click to expand...

Yes! That worked perfectly. Thanks for your time.
 
Back
Top