조건에 맞는 값 추출(행 추가) 하는 방법이 있을까요~?

VBA
작성자
SuReLinE
작성일
2023-01-16 16:34
조회
61
엑셀버전 : 엑셀2019

운영체제 : 윈도우11

 

예를들어 RAW DATE 시트의 수취인의 내품수량이 3이면

결과값 시트에 아래 처럼 그 숫자만큼(3) 행추가 and 수취인 및 송장번호 입력된 값을 가져와서 결과값 도출...

 

VBA 예시파일 뒤져봐도 까막눈이라 너무 어렵네요 ㅠ.ㅠ

 

* 1열 비워놓고

(2열부터 채우기)

수취인 송장번호 주문건수 내품수량 내품상품
A 123456 1. 3. 과자
A 123456 1. 3. 과자
A 123456 1. 3. 과자
B 123457 1. 1. 음료수
C 123458 1. 2. 라면
C 123458 1. 2. 라면
D 123459 1. 1. 과자

 

스크랩
공유
전체 2

  • 2023-01-17 23:26

    @SuReLinE 님 수식으로 푸는 방법과 파워쿼리로 푸는 방법, 두 가지 경우로 풀어보았습니다.

    첨부파일 : QQQ-1.xlsx


  • 2023-01-16 17:48

    비슷한 예시를 찾았는데..

    어딜 어떻게 수정해야 할지 ㅠ.ㅠ

     

    Sub RepeatData()

    Dim DataSheet As Worksheet
    Dim PasteSheet As Worksheet

    Dim RepeatData As Variant
    Dim RepeatNum As Variant

    Dim i As Long
    Dim j As Long
    Dim k As Long

    Set DataSheet = Worksheets("RAW_DATA")
    Set PasteSheet = Worksheets("결과")
    k = 2

    ReDim RepeatData(1 To DataSheet.Cells(2, 1).End(xlDown).Row)
    ReDim RepeatNum(1 To DataSheet.Cells(2, 1).End(xlDown).Row)

    For i = 2 To DataSheet.Cells(2, 1).End(xlDown).Row
    For j = 1 To DataSheet.Cells(2, 1).End(xlToRight).Column
    RepeatData(i) = RepeatData(i) & DataSheet.Cells(i, j).Value & ","
    Next
    RepeatNum(i) = DataSheet.Cells(i, 6).Value
    Next

    For i = 1 To UBound(RepeatData)
    PasteSheet.Cells(k, 1) = RepeatData(i)
    k = k + RepeatNum(i)
    For j = k - RepeatNum(i) + 1 To k - 1
    PasteSheet.Cells(j, 1) = RepeatData(i)
    Next
    Next
    PasteSheet.Range("A1").Resize(k - 1, 1).TextToColumns _
    Destination:=PasteSheet.Cells(1, 1), _
    DataType:=xlDelimited, comma:=True

    PasteSheet.Range(PasteSheet.Cells(1, 1), PasteSheet.Cells(1, PasteSheet.Cells(1, 1).End(xlToRight).Column)).EntireColumn.AutoFit

    End Sub


전체 9,421
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🔥선착순 판매] 2023년 엑셀 공부, "8시간 로드맵"으로 마스터하세요! (13)
오빠두엑셀 | 2023.01.25 | 추천 7 | 조회 4612
오빠두엑셀 2023.01.25 7 4612
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (125)
오빠두엑셀 | 2021.10.28 | 추천 160 | 조회 9825
오빠두엑셀 2021.10.28 160 9825
48791 파워쿼리/피벗
New 엑셀 표 관련 문의 드립니다. (1)
달려라탁구 | 13:03 | 추천 0 | 조회 9
달려라탁구 13:03 - 9
48790 함수/공식
New 날짜를 선택하면 기간에 따라 몇주차인지 나타내게하고싶습니다. 엑셀파일첨부파일
가영 | 12:58 | 추천 0 | 조회 7
가영 12:58 - 7
48787 함수/공식
New 일정 길이로 문자 추출한 후 추출된 문자의 공백 없애기 한번에 할 수 있을까요? (1)
마케팅엑셀공부 | 12:32 | 추천 0 | 조회 13
마케팅엑셀공부 12:32 - 13
48775 피벗테이블
New 새로고침시 피벗테이블 서식해제 문제 첨부파일
비누진 | 09:39 | 추천 0 | 조회 17
비누진 09:39 - 17
48771 피벗테이블
New 엑셀 피벗테이블용 데이터 합치기 첨부파일 (1)
엑셀왕초보 | 06:31 | 추천 0 | 조회 37
엑셀왕초보 06:31 - 37
48770 VBA
New VBA on error resume 관련 한번만 작동됩니다..꼭 가르침 부탁 드립니다. (2) 답변완료
119구조대 | 05:50 | 추천 0 | 조회 29
119구조대 05:50 - 29
48762 피벗테이블
New 피벗테이블에 함수가 들어갈 수 있나요?? 아~ㅜㅜㅜㅜ 첨부파일
쫌.... | 2023.02.02 | 추천 0 | 조회 30
쫌.... 2023.02.02 - 30
48759 함수/공식
New 엑셀 함수 질문드립니다 첨부파일 (1)
tndka**** | 2023.02.02 | 추천 0 | 조회 25
tndka**** 2023.02.02 - 25
48757 함수/공식
New [엑셀 함수] Weeknum을 이용하여 주차 기간 구하기 엑셀파일첨부파일 (2) 답변완료
Claire | 2023.02.02 | 추천 0 | 조회 36
Claire 2023.02.02 - 36
48750 피벗테이블
New 피벗테이블에서 같은 단어가 1,2로 나누어져버리는데 합칠 수 없나요? 첨부파일 (2)
Jace J | 2023.02.02 | 추천 0 | 조회 30
Jace J 2023.02.02 - 30
48745 함수/공식
New 월별 대여수를 알고싶습니다 ㅜ 엑셀파일첨부파일 (3) 답변완료
우주김 | 2023.02.02 | 추천 0 | 조회 42
우주김 2023.02.02 - 42
48744 문서서식
New 셀 강조 규칙에서 누락되는 셀은 뭘까요? 첨부파일 (1)
JJJeFFF | 2023.02.02 | 추천 0 | 조회 23
JJJeFFF 2023.02.02 - 23
48743 VBA
New 다른 시트에 데이터 누적 기록 문의 드립니다 엑셀파일첨부파일 (3) 답변완료
tabibi**** | 2023.02.02 | 추천 0 | 조회 32
tabibi**** 2023.02.02 - 32
48738 기능/도구
New 해당 강의가 혹시 있을까요?
엑세루마스토루 | 2023.02.02 | 추천 0 | 조회 33
엑세루마스토루 2023.02.02 - 33
48737 함수/공식
New 엑셀 시트에 있는 특정 값을 불러올 수있나요? (7)
김성모 | 2023.02.02 | 추천 0 | 조회 39
김성모 2023.02.02 - 39
48736 함수/공식
New 매크로 설정 시 한번에 저장하는 방법이 있을까요? 첨부파일 (1) 답변완료
현이 | 2023.02.02 | 추천 0 | 조회 32
현이 2023.02.02 - 32
48735 함수/공식
New 조건에 맞는 데이터 불러오는 수식이 궁금합니다. 첨부파일 (2)
배도라스 | 2023.02.02 | 추천 0 | 조회 38
배도라스 2023.02.02 - 38
48729 VBA
New 인풋박스로 유저가 시트 이름을 입력하면 해당 시트에만 특정 코드를 적용하거나 제거하기. 엑셀파일 (2) 답변완료
낚시하는김곰 | 2023.02.02 | 추천 0 | 조회 37
낚시하는김곰 2023.02.02 - 37
48726 VBA
New 셀값을 쿼리로 가져오고 싶습니다...
angelriun | 2023.02.02 | 추천 0 | 조회 27
angelriun 2023.02.02 - 27
48724 함수/공식
New 전주 대비 변경건 추출하는 방법 엑셀파일첨부파일
엑셀고수왕소취 | 2023.02.02 | 추천 0 | 조회 33
엑셀고수왕소취 2023.02.02 - 33
48723 함수/공식
New 트리구조 분류체계 순번 붙이기 관련 질의 드립니다. (1) 답변완료
Baek | 2023.02.02 | 추천 0 | 조회 26
Baek 2023.02.02 - 26
48718 함수/공식
New INDEX함수에서 '이름'을 활용하여 원하는 값을 얻고싶습니다. 엑셀파일첨부파일 (2)
무뼈닭발 | 2023.02.02 | 추천 0 | 조회 54
무뼈닭발 2023.02.02 - 54
48717 VBA
New 한글, 영어, 숫자 추출하기 및 특정단어 제외하기 엑셀파일 (6) 답변완료
심슨바트심슨 | 2023.02.02 | 추천 1 | 조회 43
심슨바트심슨 2023.02.02 1 43
48716 함수/공식
New ★다중조건을 충족하는 합계 구하는 수식 엑셀파일첨부파일 (3)
젬마 | 2023.02.02 | 추천 0 | 조회 45
젬마 2023.02.02 - 45
48714 파워쿼리/피벗
New 원드라이브 또는 쉐어포인트에 있는 데이터를 가져올려 고하면 오류가 발생합니다. 첨부파일
어수민 | 2023.02.02 | 추천 0 | 조회 28
어수민 2023.02.02 - 28
48710 구글시트
New importrange 로 불러온 값의 옆에 기재해둔 데이터가, 원본값이 변동할때도 따라갈 수 있게 조치가 가능한지 여부 (4) 답변완료
유랑 | 2023.02.02 | 추천 0 | 조회 37
유랑 2023.02.02 - 37
48707 함수/공식
New 지정셀이 함수를 사용했는지 단순계산만 했는지 구별이 가능할까요?? (3) 답변완료
엑셀두 | 2023.02.02 | 추천 0 | 조회 41
엑셀두 2023.02.02 - 41
48706 함수/공식
New index-Match, Vlookup 결과값으로 서식까지 끌어오는 방법 없나요? (4) 답변완료
HoDee | 2023.02.02 | 추천 0 | 조회 50
HoDee 2023.02.02 - 50
48704 VBA
New xlsm 파일인데 sheet없이 저장된 파일이 있습니다. 어떻게 저장이 되나요? 엑셀파일첨부파일 (4) 답변완료
수메리안 | 2023.02.02 | 추천 0 | 조회 49
수메리안 2023.02.02 - 49
48703 함수/공식
New 중복 제외하고 다중 조건의 값 카운트하기 (5)
ggplay**** | 2023.02.02 | 추천 0 | 조회 45
ggplay**** 2023.02.02 - 45