Skip to content

Instantly share code, notes, and snippets.

@ndthanh
Created July 22, 2017 13:16
Show Gist options
  • Save ndthanh/352d325f46320843d9781237aecd7bcc to your computer and use it in GitHub Desktop.
Save ndthanh/352d325f46320843d9781237aecd7bcc to your computer and use it in GitHub Desktop.
Sub DeleteZeroRow()
'Updateby20140616
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Hoc Excel Online"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Do
Set Rng = WorkRng.Find("0", LookIn:=xlValues)
If Not Rng Is Nothing Then
Rng.EntireRow.Delete
End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment