OfficeTutor.com
배움터 나눔터 교육센터 오튜장터
 통합검색  
  Home > 나눔터 > 엑셀 > 묻고답하기
엑셀
워드
액세스
파워포인트
아웃룩
프런트페이지
인포패스
원노트
비지오
쉐어포인트
포토드로우
퍼블리셔
오피스공통
MVP 안내
MVP 명예의 전당
MVP 카페

 

 

 

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

작성자:  

 아스라히 (joker8628)

추천:  0
파일:     품번LIST(2)(3)_Ans.xls (48KB) 조회:  170
제목:   조건부 행 추출 매크로 문의 - 3
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >> 2013

Sub getData()
    Dim wst As Worksheet, wstPrt As Worksheet
    Dim rCriteria As Range
    Dim rData As Range, rRow As Range
    Dim rFInd As Range
    Dim rEnd As Range
    
    Set wst = Worksheets("품번list")
    Set wstPrt = Worksheets("출력")
    
    Set rData = wst.Range("A3").CurrentRegion
    Set rData = rData.Offset(1).Resize(rData.Rows.Count - 1)
    
    Set rCriteria = wst.Range("i3").CurrentRegion
    Set rCriteria = rCriteria.Offset(1).Resize(rData.Rows.Count - 1)
    
    For Each rRow In rData.Rows
        Set rFInd = rCriteria.Find(What:=rRow.Cells(1), LookAt:=xlWhole)
        
        If Not rFInd Is Nothing Then
        
            If rFInd.Offset(0, 1) = rRow.Offset(0, 1).Cells(1) Then
            
                rRow.Copy wstPrt.Cells(Rows.Count, 1).End(xlUp).Offset(1)
                
            End If
        End If
    Next
    
End Sub


해당 파일에서 일치하는 조건을 추출하는시트와

일치하지 않았을경우 추출하는 시트로 분리하고싶습니다..

조언좀 바라겠습니다.
 
[불량 게시물 신고]  
아스라히출력시트와 불일치시트로 나눠서 추출하고싶은데 생각보다 코드 짜는데 어려움이 많아서 부탁좀 드리겠습니다. 여러분들 ㅜㅜ08-16 (14:37)
삭제 ■신고
아스라히i3 j3 k3의 조건 열과 모두 일치할경우만 추출하고 한가지라도 틀릴경우에는 불일치 시트로 나누어서 출력하고싶습니다08-16 (14:39)
삭제 ■신고
dew좀더 정확한 예제와 설명이 필요합니다.
예제시트에 I3 J3 K3에 조건이 없는데....
무엇과 무엇이 정확하게 일치해야 하는지 ????
08-16 (15:47)
삭제 ■신고
아스라히위에 게시글 새로 작성하였습니다
08-16 (16:07)
삭제 ■신고
        
  

작성일 : 2019-08-16(14:25)
최종수정일 : 2019-08-16(14:25)
 
 
 
회사소개 | 이용약관 | 개인정보 처리방침 | 회원정보수정 | 교육신청 및 문의 | 이메일무단수집거부 위로

오피스튜터 블로그 오피스튜터페이스북 오피스튜터유투브
110-722 서울 종로구 세종대로23길 47, 601-74 ㈜오피스튜터 ☎1544-4102 대표이사 : 전경수
개인정보관리책임자 : 이희진(privacy@officetutor.com) 사업자등록번호 120-86-14501
통신판매업신고 2013-서울종로-0547
norton
Copyright ⓒ OfficeTutor.com 이 페이지의 저작권은 ㈜오피스튜터와 콘텐츠 제공자에게 있습니다. 무단 복제를 금합니다.
Microsoft 및 Office 로고는 미국, 대한민국 및/또는 기타 국가에서의 Microsoft Corporation 등록 상표 또는 상표입니다.