Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

@DuongAQ
Created February 10, 2018 04:59
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 DuongAQ/71ec1dcd4a339d43a103214dd82745db to your computer and use it in GitHub Desktop.
Save DuongAQ/71ec1dcd4a339d43a103214dd82745db to your computer and use it in GitHub Desktop.
Sub Macro1()
Range("A1:C10").Select
Selection.AutoFilter
Range("C1").Select
ActiveSheet.Range("$A$1:$C$10").AutoFilter Field:=3, Criteria1:="0"
Range("A3:A9").Select
Selection.Copy
Range("E1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment