나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 참서리 (k5953)

추천:  2
파일:     고급필터[34].xls (52.5KB) 조회:  1078
제목:   [RE]다중 조건값 가져오기
　 　 　
　 '
고급 필터를 적용한 것입니다.
아래 vba코드도 유심히 보시고
더 중요한 것은 
F3의 수식을 이해하는 것입니다.

유용하게 사용하시기 바랍니다.


'----------------------------------------------'
Sub advanced_filter()
'----------------------------------------------'
'
    
    Dim cRng As Range: Set cRng = Range("F2:F3")
    Dim tRng As Range: Set tRng = Range("F6")
    Dim r As Long: r = 0

    '고급 필터 vba 코드
    Do Until cRng.Cells(1).Value = ""
    
 
            Range("A4:C182").AdvancedFilter _
                                        Action:=xlFilterCopy, _
                                        CriteriaRange:=cRng, _
                                        CopyToRange:=tRng, _
                                        Unique:=False
            
            Set cRng = cRng.Offset(, 1)
            Set tRng = tRng.Offset(, 1)
    
    Loop
    
End Sub
 		　
[불량 게시물 신고]  
 　  　  　
  

작성일 : 2018-12-03(05:55)
최종수정일 : 2018-12-03(05:58)
　


 ◎ 관련글
  제 목   작성자   날짜
다중 조건값 가져오기 엘리프 2018-12-01
◎ [RE]다중 조건값 가져오기 참서리 2018-12-03