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

 아스라히 (joker8628)

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

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

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

Sub getData()
    Dim wst As Worksheet, wstPrt As Worksheet, wstPrt2 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 wstPrt2 = Worksheets("틀린조건")
    
    Set rData = wst.Range("A4").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)
            Else
            
                rRow.Copy wstPrt2.Cells(Rows.Count, 1).End(xlUp).Offset(1)
                
            End If
        End If
    Next
    
End Sub

제가 수정한 소스인데 저는 지금

A:G 의 한 행의 데이터와 I:O 한행의 데이터가 일치할경우

출력시트에 데이터를 추출하고

일치하지 않을시 틀린조건 시트로 추출할려고 시도를 하고있습니다.

A:G의 데이터가 만약
A  B  C  D  E  F  G   |   I  J  K  L  M  N  O
가 나 다 라 마 바 사  |   가 나 다 라 마 바 사
가 나 다 라 마 마 마  |   가 나 다 라 마 가 가

I:O 행을 을 조건이라 생각 했을때

출력시트에는
가 나 다 라 마 바 사

틀린조건시트에는
가 나 다라 마 마 마

이런식으로 출력하고 싶습니다

다중 FOR문으로 작성하는법이랑 배열 사용방법 둘다 있다고 생각하는데

배열로 구현해보고싶습니다.
 
[불량 게시물 신고]  
아스라히A:G 를 한 데이터로 취급하고

I:O 를 한 기준데이터로 취급하였을때

I:0의 모든 데이터가 일치하는 데이터만 

시트에 출력하고 싶습니다

하나라도 틀릴경우에는 틀린시트로 출력하고싶어요

08-16 (16:11)
삭제 ■신고
        
  

작성일 : 2019-08-16(16:07)
최종수정일 : 2019-08-16(16:07)
 


 ◎ 관련글

  제 목   작성자   날짜
조건부 행 추출 매크로 문의 - 3 파일 재업로드 아스라히 2019-08-16
[RE]조건부 행 추출 매크로 문의 - 3 파일 재업로드 dew 2019-08-16