Try this:

It will delete the entire row when specification meets

Sub processdata()

Dim i As Long, lr As Long

lr = ActiveSheet.UsedRange.Rows.Count


> Application.ScreenUpdating = False

For i = 1 To lr


> If Range("A" & i).Value = "" Then Range("A" & i).EntireRow.Delete

If UCase(Range("A" & i).Value) = "C" Then Range("A" & i).EntireRow.Delete

If UCase(Range("A" & i).Value) = "D" Then Range("A" & i).EntireRow.Delete

If UCase(Range("A" & i).Value) = "E" Then Range("A" & i).EntireRow.Delete

If UCase(Range("A" & i).Value) = "F" Then Range("A" & i).EntireRow.Delete


> Next

Application.ScreenUpdating = True

End Sub



On Sun, Nov 7, 2010 at 1:20 PM, neil johnson <neil.jh...@googlemail.com>wrote:

> Hi Everyone,
>
> I have data in rows("A:A") like  . Now I want to delete blank row and *C,
> D, E, F till last range in" A". how can I  make macros for this *
> Name
> B
> C
> A
> B
> C
> A
> A
>
> A
> A
> B
> C
> C
> C
>
>
>
> C
> C
> B
> B
> C
> C
> C
> D
> E
> E
> F
> F
> F
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
>

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts

Reply via email to