| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
delete rows without numbers
Dim i As Integer For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 Select Case IsNumeric(Left(Range("a" & i).Value, 1)) Case False Rows(i).Delete Shift:=xlUp End Select Next ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Delete all negative numbers leaving only positive numbers | Excel Discussion (Misc queries) | |||
| delete rows between tow inputs numbers | Excel Discussion (Misc queries) | |||
| locate positive numbers and delete rows containing | Excel Discussion (Misc queries) | |||
| Cut filtered rows, paste into next empty row of new sheet, and delete cut rows | Excel Worksheet Functions | |||
| How to delete rows when List toolbar's "delete" isnt highlighted? | Excel Worksheet Functions | |||
![mudraker[_28_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
