Does anyone have a fix for this

  • Thread starter Thread starter Just Me
  • Start date Start date
J

Just Me

When I copy and paste data from my online credit card statement it has a
colored row that seperates each entry. is there any way besides doing it
manually to delete every other row?
 
With ACtivesheet
iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = iLastRow to 1 Step -2
.Rows(i).delete
Next i
End With

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
select a column
data>filters>autofilter
in the aut0ofilter header select blanks
select all the visible rows and edit delete row

or select all and data sort
the empty rows will move to the bottom
 
Select a column and F5>Special>Blanks>OK

Edit>Delte>Entire Row


Gord Dibben MS Excel MVP
 
Thanks for the feedback.

It is the easiest method IMO if you have a column with blank rows representative
of all.


Gord
 
Back
Top