Superstar31
Active Member
- Joined
- Nov 10, 2005
- Messages
- 496
Using VB Code
Sub MyDelete()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Not IsNumeric(Left(Cells(i, "A"), 1)) Then Rows(i).EntireRow.Delete
Next i
End Sub
written by Jmiskey
I am trying to edit it so that it scans column A and if any number is below 1, then it deletes the whole row.
The reason I am trying to delete any number below 1 is because some columns are numeric but no data is in them, however the rest of that row has information I need to delete.
??? hopefully this makes sense
Sub MyDelete()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Not IsNumeric(Left(Cells(i, "A"), 1)) Then Rows(i).EntireRow.Delete
Next i
End Sub
written by Jmiskey
I am trying to edit it so that it scans column A and if any number is below 1, then it deletes the whole row.
The reason I am trying to delete any number below 1 is because some columns are numeric but no data is in them, however the rest of that row has information I need to delete.
??? hopefully this makes sense