how to delete certain cells from a column in a large spreadsheet

[catherine0619]

Hello,
I have a spreadsheet that has more than 4,000 individual records I would like to remove from one column any record containing a number higher than 90.
Any help is appreciated

 

[Momentman]

You could use a filter to show all values greater than 90 and then delete all entries or better still use this macro

Sub removerows()
    lastrow = Range("A65536").End(xlUp).Row
    For I = lastrow To 1 Step -1
        If Cells(I, "B").Value > 90 Then 'Here I assumed the data to be deleted is in column B, change as appropriate
            Rows(I).Delete
        End If
    Next I
End Sub

 

[catherine0619]

OK thanks!

You could use a filter to show all values greater than 90 and then delete all entries or better still use this macro

Sub removerows()
    lastrow = Range("A65536").End(xlUp).Row
    For I = lastrow To 1 Step -1
        If Cells(I, "B").Value > 90 Then 'Here I assumed the data to be deleted is in column B, change as appropriate
            Rows(I).Delete
        End If
    Next I
End Sub