Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/DeleteUsingSpecialCells.bas

Created November 12, 2018 11:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ndthanh/75effb4a0ffa4303b6e676fa4b2dd103 to your computer and use it in GitHub Desktop.
Save ndthanh/75effb4a0ffa4303b6e676fa4b2dd103 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
DeleteUsingSpecialCells.bas
Sub DeleteUsingSpecialCells()
Application.ScreenUpdating = False
With Sheet1.Range("B1:B40000")
.Range("E1") = Now
.Formula = "=IF(A1<0.1,0/0,A1)"
.Cells.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
.Range("E2") = Now
End With
Application.ScreenUpdating = True
MsgBox "Done"
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment