URGENT Need Help with Excel

[vasiliskyj]

[TABLE="width: 253"]
<tbody>[TR]
[TD]Here is a sequence I have In my excel, How do I delete all the long digit numbers and then organize all of the numbers and move them to the top in order, in a list form for printing. I also have a bunch of random words in the list such as Page 5 of 555 which I would like to delete. all I want is the numbers such as 911121. I need to delete words such as CLAIM NUMBER as well as the 1 digit numbers. THANKS
[/TD]
[/TR]
[TR]
[TD]911111
[/TD]
[/TR]
[TR]
[TD]100400000091112
[/TD]
[/TR]
[TR]
[TD]911121
[/TD]
[/TR]
[TR]
[TD]100400000091112
[/TD]
[/TR]
[TR]
[TD]911127
[/TD]
[/TR]
[TR]
[TD]700400000091114
[/TD]
[/TR]
[TR]
[TD]911143
[/TD]
[/TR]
[TR]
[TD]300400000091114
[/TD]
[/TR]
[TR]
[TD]911148
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 253"]
<tbody>[TR]
[TD]Claim Number[/TD]
[/TR]
[TR]
[TD]umber00400000091157[/TD]
[/TR]
[TR]
[TD]911575[/TD]
[/TR]
[TR]
[TD]500400000091157[/TD]
[/TR]
[TR]
[TD]911579[/TD]
[/TR]
[TR]
[TD]900400000091159[/TD]
[/TR]
[TR]
[TD]911590[/TD]
[/TR]
[TR]
[TD]000400000091160[/TD]
[/TR]
[TR]
[TD]911605[/TD]
[/TR]
[TR]
[TD]500400000091160[/TD]
[/TR]
[TR]
[TD]911607[/TD]
[/TR]
[TR]
[TD]700400000091161[/TD]
[/TR]
</tbody><colgroup><col></colgroup>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Chris Macro]

If you only need the 6 digit numbers you can use a formula like below in the next column

=IF(LEN(A1)=6,"KEEP","DELETE")

Then filter on the DELETE cells and delete those cell rows.

 

[Redwolfx]

If you would like to use a VBA Approach


This assumes your info is in Column A and deletes anything more than 6 digits

Sub Del()
Dim Mycell As Range
Dim lastrow As Long
lastrow = Range("A10000").End(xlUp).Row
For Each Mycell In Range("A1:A" & lastrow)
    If IsNumeric(Mycell.Value) = False Or Mycell.Value < 10 Or Mycell.Value >= 1000000 Then
        Mycell.ClearContents
    End If
Next Mycell
    Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub