Does anyone have a fix for this

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?
 
B

Bob Phillips

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)
 
B

bj

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
 
G

Gord Dibben

Select a column and F5>Special>Blanks>OK

Edit>Delte>Entire Row


Gord Dibben MS Excel MVP
 
G

Gord Dibben

Thanks for the feedback.

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


Gord
 
Top