Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows except
I found the following code, but it doesnt work for me.
I need a code that will delete Rows A-H based on the data in column A. Example: PCPB PCPA PCPC PCPB PCPD PCPC PCPB I want to delete every row that doesn't start with PCPB. This code doesnt work for me: Dim LastRow As Long Dim RowNdx As Long LastRow = Cells(Rows.Count, "A").End(xlUp).Row '<change column letter if desired For RowNdx = LastRow To 1 Step -1 '<change '1' to ending row if desired If Left(Cells(RowNdx, "A"), 7) < "PCPB" Then Rows(RowNdx).Delete End If Next RowNdx |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hpw do I delete multiple empty rows found between filled rows? | Excel Worksheet Functions | |||
Cut filtered rows, paste into next empty row of new sheet, and delete cut rows | Excel Worksheet Functions | |||
Delete rows with numeric values, leave rows with text | Excel Programming | |||
How to delete rows when List toolbar's "delete" isnt highlighted? | Excel Worksheet Functions | |||
Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming |