Still trying to delete...

[Dan]

Hi again:

I have a csv file and I would like to delete all the rows
that are not starting in A1, with a number:

So I would like to keep:
87192
04321

and delete those that are blank or start, in A1 with:


node
===
name
active


THANK YOU,

Dan

 

[OZDOC1050]

Just one way it could be done, adjust to suit, presuming this runs down in
column A.
R
Pete

Sub NUMBERSPLEASE()
Application.ScreenUpdating = False
On Error Resume Next
Range("A65536").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveCell.Offset(1, 0).Value = "END"
Range("A1").Select
Do Until ActiveCell.Value = "END"
If ActiveCell.Value = "" Or ActiveCell.Value = "node" Or _
ActiveCell.Value = "===" Or ActiveCell.Value = "name" Or _
ActiveCell.Value = "active" Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.ClearContents
Range("A1").Select
Application.ScreenUpdating = True
End Sub

--
(][ This Email has been scanned by Norton AntiVirus. ][)
Hi again:

I have a csv file and I would like to delete all the rows
that are not starting in A1, with a number:

So I would like to keep:
87192
04321

and delete those that are blank or start, in A1 with:


node
===
name
active


THANK YOU,

Dan

 

[Dan]

Thank you! but is deleting just the blank rows!?

Thanks again; I will see if I can find out why??

Dan

 

[Dave Peterson]

If there were only 4 values to delete, I wouldn't use a macro.

I'd apply Data|filter|autofilter
filter that column to show the values to delete (one at at time)
then delete the visible rows
then filter by the next value, delete those visible rows,
etc.