About Us

tom_mcd[_2_]

Brilliant Don, thanks a lot.

"Don Guillett" wrote:

Sub deleteblocks()
'insert a row at row2 FIRST
mc = 1 'Column A
For i = Cells(Rows.Count, mc).End(xlUp) _
.Row To 2 Step -1
If Len(Application.Trim(Cells(i, mc))) 0 _
And Cells(i, mc) = 0 Then
Range(Cells(i, mc), Cells(i, mc).End(xlUp)) _
.EntireRow.Delete
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tom mcd" <tom wrote in message
...
below is the spreadsheet I have with a lot of data. I need to keep only
the
data which has in cell column (status) c: the value 1. If the value is 0
then
the rows above the 0 are not required. As there are over 15,000 rows and
no
set amount of rows for each block (column A0 does anyone have a function
or
module solution for this query. Thanks again all.

block house status
100x Perth Crescent 100 Perth Crescent A
102 Perth Crescent S
0

1015x Dumbarton Road 1019 Dumbarton Road A
1015 Dumbarton Road S
1017 Dumbarton Road S
1

101x Craigs Avenue 101 Craigs Avenue A
107 Craigs Avenue A
103 Craigs Avenue S
105 Craigs Avenue S
1

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete & Merge Columns,Delete Rows with filter, etc	traderindia	Excel Programming	1	July 16th 09 08:17 PM
Delete Rows if any cell in Column H is blank but do not Delete Fir	manfareed	Excel Programming	4	September 28th 07 05:20 PM
Copy pasting Rows, but need to Delete any Shapes/Pictures that are within copied rows	Corey	Excel Programming	2	August 1st 07 02:02 AM
How to delete rows when List toolbar's "delete" isnt highlighted?	Linda	Excel Worksheet Functions	1	May 26th 05 08:39 PM
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	Annette[_4_]	Excel Programming	2	September 21st 04 02:40 PM

Menu

About Us