Skip to content

Instantly share code, notes, and snippets.

@Kyeongrok

Kyeongrok/advanced_manual.md

Created November 11, 2017 07:01
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 Kyeongrok/dc32020fb4b300bb90a937dad8a2aba1 to your computer and use it in GitHub Desktop.
Save Kyeongrok/dc32020fb4b300bb90a937dad8a2aba1 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
advanced_manual.md 
Sub main_advanced()
    Sheets("filter").Range("A8:Z10000").Clear
    Call advancedFilter(1)
End Sub

Sub main_advanced_2()
    Sheets("filter").Range("A8:Z10000").Clear
    Call advancedFilter(2)
End Sub

Sub advancedFilter(p_조건행개수)
    행개수 = 행개수세기()
    Sheets("raw_data").Range("A1:P" & 행개수).advancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("filter!A1:P" & 1 + p_조건행개수), CopyToRange:=Range("filter!A7:P7"), Unique:=False
End Sub
Function 행개수세기()
    행개수 = Sheets("raw_data").Range("A1:" & Range("raw_data!A1048576").End(xlUp).Rows.Address).Rows.Count
    행개수세기 = 행개수
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment