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