엑셀 다중 필터 자동화 :: Multi_AutoFilter 함수 총정리

'<--! 줄바꿈 기호를 세로바두개(||)로 변경합니다 -->
strAll = Replace(FilterValue, Chr(10), "||")
strAll = Replace(strAll, Chr(13), "||")
 
'<--! 줄바꿈 외에 다른 기호로도 항목을 구분할경우 추가하세요 -->
strAll = Replace(strAll, "기호", "||")

Sub Multi_AutoFilter(HeaderCell As Range, rngFilter As Range, FilterValue As String, Optional FilterType As XlAutoFilterOperator = xlFilterValues)
 
Dim strAll As String
Dim varStr As Variant: Dim Var As Variant
Dim dicVar As Dictionary: Dim varDic As Variant  '/* Microsoft Scripting Runtime 라이브러리 추가 */
Dim initCol As Long
Dim a As Long: Dim i As Variant: a = 0
 
Set dicVar = New Dictionary
 
'<--! 줄바꿈 기호를 세로바두개(||)로 변경합니다 -->
strAll = Replace(FilterValue, Chr(10), "||")
strAll = Replace(strAll, Chr(13), "||")
 
'<--! 배열로 반환한 뒤, Dictionary에 추가 (중복값 제거) -->
varStr = Split(strAll, "||")
 
For Each Var In varStr
    If Not dicVar.Exists(Var) And Len(Var) > 0 Then
        dicVar.Add Var, Len(Var)
    End If
Next
 
'<--! Dictionary 를 배열로 재반환 -->
ReDim varDic(0 To dicVar.Count - 1)
For Each i In dicVar.Keys()
    varDic(a) = i
    a = a + 1
Next
 
'<--! 필터적용 범위의 시작점 -->
initCol = rngFilter.Column
 
'<--! 필터적용 범위를 해당 조건(배열=varDic)으로 필터링합니다 -->
rngFilter.AutoFilter _
Field:=HeaderCell.Column - initCol + 1, _
Criteria1:=varDic, _
Operator:=FilterType
 
End Sub