고수님들의 도움을 부탁드려요

함수/공식
작성자
왕코
작성일
2021-10-13 20:00
조회
61
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

 

아래와 같이 A라는 모델의 항목이 한 셀에 , 로 구분되어 있는 것을 각각의 행으로 구분을

손쉽게 할 수 있는 방법이 있을까요?

 

DATA 양이 적으면 텍스트 나누기로  , 를 기준으로  셀별 구분 후 행열 바꾸기로 하는 방식으로 하겠지만

DATA 가 방대해서 손쉽게 할 수 있는 방법이 있을지 문의드립니다.

 

조언 주시면 감사하겠습니다.

 

원본 희망 변경 형태
모델 항목 모델 항목
A 10,20,30 A 10
B 10,20 A 20
C 20,30,40,50 A 30
B 10
B 20
C 20
C 30
C 40
C 50

 

 

회원등급 : 씨앗등급
포인트 : 25 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 3

  • 2021-10-13 22:58

    PowerQuery를 통하여 텍스트 구분을 쉼표로 구분하신 뒤 언피벗하시면 쉽게 해결됩니다.


  • 2021-10-14 15:09
    Sub 데이터분리()
    
    
        Dim RangeTemp As Variant
        Dim cTemp
        Dim yOffset As Integer
        Dim xOffset As Integer
        Dim yLoop As Integer
        Dim xLoop As Integer
        
        
        RangeTemp = Range("A1:B3").Value    '// 전체 데이터 위치
        
        
        yOffset = 1      '// 출력행 위치
        xOffset = 10     '// 출력컬럼 위치
        
        For yLoop = LBound(RangeTemp, 1) To UBound(RangeTemp, 1)
            cTemp = Split(RangeTemp(yLoop, 2), ",")
            
            For xLoop = LBound(cTemp, 1) To UBound(cTemp, 1)
                Cells(yOffset, xOffset + 0).Value = RangeTemp(yLoop, 1) '// 헤더
                Cells(yOffset, xOffset + 1).Value = cTemp(xLoop)        '// 분리된 값 출력
                yOffset = yOffset + 1
            Next
        Next
    
    
    End Sub

전체 4,261
번호 카테고리 제목 작성자 작성일 추천 조회
4245 함수/공식
New raw 데이터를 이용하여 복수 조건에 해당하는 데이터 나열하기
신동 | 14:23 | 추천 0 | 조회 11
신동 14:23 0 11
4244 함수/공식
New if를 사용하여 값 참조하게하기 (1)
현표 | 11:33 | 추천 0 | 조회 23
현표 11:33 0 23
4243 차트/그래프
New 음영 셀만 그래프에 수치가 표기 되거나 강조되게 하는 방법이 있을까요? 첨부파일
은하상회 | 11:14 | 추천 0 | 조회 12
은하상회 11:14 0 12
4242 VBA
New Sheet간 이미지 복사 방법이 있을까요?..(셀병합, 범위..) 첨부파일
tu1541 | 08:54 | 추천 0 | 조회 24
tu1541 08:54 0 24
4241 문서서식
New 기초) 자동필터에서 와일드카드 검색 질문드립니다 (2)
월마리아 | 01:52 | 추천 0 | 조회 27
월마리아 01:52 0 27
4240 VBA
New 피벗테이블 필터자동 변경 문의드려요 ㅠㅠ 첨부파일 (1)
Jun0211 | 2021.10.21 | 추천 0 | 조회 27
Jun0211 2021.10.21 0 27
4239 함수/공식
New 셀 2개의 데이타를 ㄹ합치는 법 (4) 답변완료
마운틴 | 2021.10.21 | 추천 0 | 조회 42
마운틴 2021.10.21 0 42
4238 VBA
New 필터링된 값 붙여넣기 첨부파일 (8) 답변완료
지연 | 2021.10.21 | 추천 0 | 조회 45
지연 2021.10.21 0 45
4237 함수/공식
New 엑셀 수식을 부탁드립니다. 첨부파일 (1)
워싱턴 | 2021.10.21 | 추천 0 | 조회 36
워싱턴 2021.10.21 0 36
4236 VBA
New 도와주세요 첨부파일 (1)
현아 | 2021.10.21 | 추천 0 | 조회 33
현아 2021.10.21 0 33
4235 함수/공식
New 업체명으로 된 DB에서 업체명 + ~월 등 문자가 추가되었을때 DB에서 찾아오는 함수 수식 (3) 답변완료
이수철 | 2021.10.21 | 추천 0 | 조회 36
이수철 2021.10.21 0 36
4234 함수/공식
New 로우데이터에서 특정값을 찾아 값이 있을 경우와 없을 경우 결과 값을 지정하여 도출하는 방법이 궁금합니다. (1)
mysoul**** | 2021.10.21 | 추천 0 | 조회 29
mysoul**** 2021.10.21 0 29
4233 함수/공식
New x,y,z로 이루어진 방정식 두 개를 '해 찾기' 기능으로 풀 수 있을까요? (6)
고대하라 | 2021.10.21 | 추천 0 | 조회 42
고대하라 2021.10.21 0 42
4232 기능/도구
New 셀선택시 설명 팝업 (6) 답변완료
HYODONG | 2021.10.21 | 추천 0 | 조회 33
HYODONG 2021.10.21 0 33
4231 피벗테이블
New 정규화에 대한 문의 첨부파일 (1)
광개토태왕 | 2021.10.21 | 추천 0 | 조회 27
광개토태왕 2021.10.21 0 27
4230 차트/그래프
New 원형 차트에 슬라이서 연결 시 표시 방법 문의 드립니다. (1)
이찬우 | 2021.10.21 | 추천 0 | 조회 23
이찬우 2021.10.21 0 23
4229 함수/공식
New 대량의 데이터를 가지고 있는 다른 시트에서 중복값찾기 (6) 답변완료
라운 | 2021.10.21 | 추천 0 | 조회 54
라운 2021.10.21 0 54
4228 VBA
New 시간이 겹치거나 겹친 시간에 동일 이름이 중복될 경우 찾을려면 어떻게 하면 될까요? (4)
셀라푸우 | 2021.10.20 | 추천 0 | 조회 40
셀라푸우 2021.10.20 0 40
4227 VBA
New 데이터 범위설정 매크로 수식 (2)
젬마 | 2021.10.20 | 추천 0 | 조회 53
젬마 2021.10.20 0 53
4226 피벗테이블
New 피벗테이블 구성 (2)
광개토태왕 | 2021.10.20 | 추천 0 | 조회 45
광개토태왕 2021.10.20 0 45
4225 VBA
New (초보..)vba 웹크롤링(selenium 사용) 문자를 읽어오지않아 문의드립니다!! (4)
윌터너 | 2021.10.20 | 추천 0 | 조회 37
윌터너 2021.10.20 0 37
4224 함수/공식
New 함수 자동입력?
흑형 | 2021.10.20 | 추천 0 | 조회 57
흑형 2021.10.20 0 57
4223 기능/도구
New 구글 스프레드시트 이미지 인쇄 문제 (1)
민 쌤 | 2021.10.20 | 추천 0 | 조회 31
민 쌤 2021.10.20 0 31
4222 파워쿼리/피벗
New 파워쿼리 입문입니다. 시트 합치는 방법 질문드립니다. 첨부파일 (2)
월마리아 | 2021.10.19 | 추천 0 | 조회 59
월마리아 2021.10.19 0 59
4221 함수/공식
New 공부용 일정표 관련해서 자동 생성 질문드립니다.
1234느린열차 | 2021.10.19 | 추천 0 | 조회 34
1234느린열차 2021.10.19 0 34
4220 함수/공식
New 변화되는 값 추적하기 첨부파일 (1)
아자사랑 | 2021.10.19 | 추천 0 | 조회 50
아자사랑 2021.10.19 0 50
4219 함수/공식
New 셀에 포함된 특정단어 추출 함수 첨부파일 (6) 답변완료
마운틴 | 2021.10.19 | 추천 0 | 조회 78
마운틴 2021.10.19 0 78
4218 피벗테이블
New 피벗테이블에서 열 (레이블) 상위 10% 필터링 방법 문의 첨부파일 (3)
김성현19 | 2021.10.19 | 추천 0 | 조회 39
김성현19 2021.10.19 0 39
4217 함수/공식
다중조건으로 매출 순위 구하기 첨부파일 (8) 답변완료
newstar | 2021.10.19 | 추천 0 | 조회 59
newstar 2021.10.19 0 59
4216 파워쿼리/피벗
Expression.Error: Table 형식의 값을 Binary 형식으로 변환할 수 없습니다 첨부파일 (3)
슝슝 | 2021.10.19 | 추천 0 | 조회 32
슝슝 2021.10.19 0 32