Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel VBA - Delete Rows with certain text...
Hi JMax
Try this one http://www.rondebruin.nl/delete.htm -- Regards Ron de Bruin (Win XP Pro SP-1 XL2000-2003) www.rondebruin.nl "JMax " wrote in message ... I am quite stuck to say the least. I have this file about 13K rows that was exported from Fox Pro. In order to manipulate it, I need to delete every (entire) row that contains the text 'Store Totals for:' At first I thought I needed to delete every 5th row but that was not what I needed nor did it work.....The text is in column A. Any help would be appreciated. Sub DeleteRows() Dim cell As Range Dim ICol As Integer Dim IRow As Integer Dim myRange As Range ICol = Range("A1").End(xlToRight).Column IRow = Range("A1").End(xlDown).Row Set myRange = Range(Cells(1, 1), Cells(IRow, ICol)) For x = IRow To 2 Step -1 Set cell = Range("A" & x) cell.Select If cell.Value = cell.Offset(5, 0).Value Then cell.EntireRow.Delete End If Next x End Sub --- Message posted from http://www.ExcelForum.com/ |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Delete Rows Without Specific Text | Excel Worksheet Functions | |||
Delete rows with certain text | Excel Worksheet Functions | |||
easy way to delete all rows with no text in them? | New Users to Excel | |||
delete empty rows between rows with text | Excel Discussion (Misc queries) | |||
Delete rows that DO NOT contain certain text | Excel Programming |