여러줄이 아닌 한개의 셀로 작성을 하고 싶습니다ㅠㅠ

함수/공식
작성자
rla****
작성일
2022-09-08 23:27
조회
113
엑셀버전 : 엑셀2019

운영체제 : 윈도우11

질문 요약 : 같은 상품코드로 묶어진 상품들을
여러줄이 아닌 한개의 셀로 작성을 하고 싶습니다.

안녕하세요 

저는 온라인 판매를 진행하고 있는 셀러입니다ㅠㅠ

다름이 아니라 매일 수작업으로 하던것이 있는데 시간이 너무 오래걸려서

고수님들께 도움을 청하러 왔습니다.

부디 저를 도와주세요ㅠㅠㅠㅠㅠㅠ

<기존데이터>

<원하는 데이터>

기존데이터를 원하는 데이터로 만들고 싶습니다!

위에 보시는 것과 같이 같은 상품코드로 묶어진 상품들을

여러줄이 아닌 한개의 셀로 작성을 하고 싶습니다.

기존에는 ALT+ENTER키를 이용해서 전부 수작업으로 진행을 하였습니다ㅠㅠ

아무리 찾아도 수작업 말고는 방법이 없는 것 같아 여기에서 문의를 드리게되었습니다.

수식이나 혹시 시간을 단축할 수 있는 방법을 아시는분들은 댓글부탁드립니다ㅠㅠ

정말 간절합니다ㅠㅠ

스크랩
공유
전체 4

  • 2022-09-09 19:07

    @rla**** 님 그냥 셀 배경 흰색으로 하면 줄 안보입니다.

    잘 분리되어있는 데이터인데 아깝네요


    • 2022-09-12 15:24

      @춘식 님 그러게요 데이터 처리가 잘되어있는데, 아까운 선택이네요.


  • 2022-09-09 10:41

    @rla**** 님 매크로로 처리하면 이렇게 됩니다.

    Option Explicit
    
    Sub IntoOneLine()
        Dim vCells As Variant, vResult As Variant, strA As String, strB As String, strC As String
        Dim iLastRow As Long, iRow As Long, iCnt As Long
        
        Application.ScreenUpdating = False
        
        ActiveSheet.AutoFilterMode = False
        iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
        vCells = Range("A1:C" & iLastRow).Value2
        iCnt = Application.CountA(Range("A1:A" & iLastRow))
        ReDim vResult(1 To iCnt, 1 To 3)
        
        iCnt = 0
        For iRow = 1 To iLastRow
            If vCells(iRow, 1) <> vbNullString Then
                If iRow > 1 Then
                    iCnt = iCnt + 1
                    vResult(iCnt, 1) = strA
                    vResult(iCnt, 2) = strB
                    vResult(iCnt, 3) = strC
                End If
                strA = vCells(iRow, 1)
                strB = vCells(iRow, 2)
                strC = vCells(iRow, 3)
            Else
                strA = strA
                strB = strB & vbNewLine & vCells(iRow, 2)
                strC = strC & vbNewLine & vCells(iRow, 3)
            End If
        Next
        
        '// 최종적으로 가지고 있는 것도 기재
        iCnt = iCnt + 1
        vResult(iCnt, 1) = strA
        vResult(iCnt, 2) = strB
        vResult(iCnt, 3) = strC
        
        '// 출력할 시트 추가 및 값 붙여넣기, 시트 정리
        Worksheets.Add
        ActiveSheet.Range("A1").Resize(UBound(vResult, 1), UBound(vResult, 2)) = vResult
        ActiveSheet.UsedRange.EntireColumn.AutoFit
        ActiveSheet.UsedRange.EntireRow.AutoFit
    
        Application.ScreenUpdating = False
    
    End Sub
    

     

    첨부파일 : 엑셀질문.xlsm


  • 2022-09-09 06:39

    @rla**** 님 첨부파일 참조하시면 되고요, 피벗테이블과 파워쿼리 두 가지로 풀어보았습니다.

    파워쿼리로 해결하는 방법은 데이터 → 쿼리 및 연결 → 표1 클릭 한 후 오른쪽의 쿼리 설정의 각 단계를 보시면 됩니다.

    피벗테이블로 해결하는 방법은 아래에 간단히 설명드립니다.

    먼저 A열에 빈셀에 상품코드를 넣기위해
    A2:A1153을 선택한 후
    홈 → 찾기 및 선택 → 이동옵션 → 빈셀 → 확인
    수식입력줄에 =A2 입력 후 Ctrl + Enter 누르세요.

    삽입→ 피벗테이블을 클릭한 후
    데이터 모델에 이 데이터 추가를 체크하신 후 확인 누르세요.

    피벗 테이블 필드에서 범위에 오른쪽 마우스 클릭 한 후 측정값 추가를 클릭합니다.
    아래 그림과 같이 측정값을 만드세요.

    아래와 같이 필드를 만드세요.

    피벗테이블 전체 범위를 설정한 후 셀서식에서 자동줄바꿈을 체크하세요.

    첨부파일 : 엑셀질문.xlsx


전체 7,839
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉 오피스 분야 30주 연속 1위! - 「 진짜쓰는 실무엑셀 」 전자책이 출간되었습니다! (4)
오빠두엑셀 | 2022.09.28 | 추천 5 | 조회 272
오빠두엑셀 2022.09.28 5 272
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (3)
오빠두엑셀 | 2022.08.04 | 추천 5 | 조회 1707
오빠두엑셀 2022.08.04 5 1707
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (97)
오빠두엑셀 | 2021.10.28 | 추천 125 | 조회 7486
오빠두엑셀 2021.10.28 125 7486
42696 VBA
New VBA 리스트박스 목록 선택 시 자동 누적 입력하기 안됨 해결방법 엑셀파일
GMART | 20:55 | 추천 0 | 조회 10
GMART 20:55 - 10
42695 파워쿼리/피벗
New 파워쿼리 병합 후 정렬에 대해서 질문드립니다. 엑셀파일첨부파일
월마리아 | 20:52 | 추천 0 | 조회 9
월마리아 20:52 - 9
42689 VBA
New 셀의 이미지를 복사하는 매크로... 첨부파일
실런 | 17:23 | 추천 0 | 조회 20
실런 17:23 - 20
42686 문서서식
New 영상 자료파일
뿌삐뿌찌빵꾸똥 | 14:15 | 추천 0 | 조회 25
뿌삐뿌찌빵꾸똥 14:15 - 25
42684 문서서식
New 조건부 서식 색 적용 안됨 첨부파일 (3)
아드키 | 12:48 | 추천 0 | 조회 27
아드키 12:48 - 27
42678 VBA
New VBA코드 오류뜨는데 왜 일까요ㅠㅠ 첨부파일 (2)
엑셀공부중 | 01:18 | 추천 0 | 조회 27
엑셀공부중 01:18 - 27
42676 함수/공식
New 함수조언 구합니다. 엑셀파일
엑셀공부중 | 2022.09.30 | 추천 0 | 조회 29
엑셀공부중 2022.09.30 - 29
42672 기능/도구
New 조건부 서식이 적용되지 않습니다. 첨부파일
dollffin | 2022.09.30 | 추천 0 | 조회 30
dollffin 2022.09.30 - 30
42670 피벗테이블
New 관계형데이터베이스 파워피벗 엑셀파일 (2) 답변완료
겸둥이 | 2022.09.30 | 추천 0 | 조회 37
겸둥이 2022.09.30 - 37
42669 함수/공식
New 출퇴근 자료를 이용하여 근태 테이블 작성하기 (index, match, iferror 함수 사용) 엑셀파일 (1)
공학 | 2022.09.30 | 추천 0 | 조회 38
공학 2022.09.30 - 38
42667 VBA
New M365 2206 버전의 VBA 자동화 오류 관련하여 문의를 드리고자 합니다
lililililil | 2022.09.30 | 추천 0 | 조회 24
lililililil 2022.09.30 - 24
42665 함수/공식
New if 함수 논리 설정 시 범위 선택 첨부파일 (2)
구찌갱 | 2022.09.30 | 추천 0 | 조회 29
구찌갱 2022.09.30 - 29
42664 문서서식
New 엑셀 날짜관련 질문드립니다. 첨부파일 (1)
엑셀잘할래요 | 2022.09.30 | 추천 0 | 조회 30
엑셀잘할래요 2022.09.30 - 30
42661 함수/공식
New 함수 조언구합니다. 엑셀파일 (2) 답변완료
엑셀공부중 | 2022.09.30 | 추천 0 | 조회 38
엑셀공부중 2022.09.30 - 38
42660 기능/도구
New 27인치 4K모니터로 엑셀을 하면... (1)
9 Crimes | 2022.09.30 | 추천 0 | 조회 45
9 Crimes 2022.09.30 - 45
42656 함수/공식
New 떨어진 여러 셀간의 AVERAGEIF 함수 사용 (1) 답변완료
아홉열 | 2022.09.30 | 추천 0 | 조회 35
아홉열 2022.09.30 - 35
42655 피벗테이블
New 피벗테이블에서 날짜 값 중에 "월"이 표시되었으면 합니다. 첨부파일 (7) 답변완료
twou**** | 2022.09.30 | 추천 0 | 조회 42
twou**** 2022.09.30 - 42
42653 VBA
New 엑셀 함수가 적용된 셀 영역에 round를 하는 방법 엑셀파일 (9) 답변완료
우산쓰자 | 2022.09.30 | 추천 0 | 조회 31
우산쓰자 2022.09.30 - 31
42651 함수/공식
New 수식 사용 시 결과값 오류 문의 엑셀파일 (3) 답변완료
병알 | 2022.09.30 | 추천 0 | 조회 28
병알 2022.09.30 - 28
42650 피벗테이블
New 관계형데이터 -파워피벗 관련 질문드려요. 엑셀파일 (2) 답변완료
겸둥이 | 2022.09.30 | 추천 1 | 조회 31
겸둥이 2022.09.30 1 31
42648
New OFFSET함수 관련 문의 첨부파일 (9)
콕콕이 | 2022.09.30 | 추천 0 | 조회 41
콕콕이 2022.09.30 - 41
42643 기능/도구
New 셀 병합 관련 알림 끄는 법 첨부파일 (1)
이종현 | 2022.09.30 | 추천 0 | 조회 29
이종현 2022.09.30 - 29
42635 VBA
New 원드라이브에 공유된 엑셀간에 VBA를 사용해서 데이터를 가져올수 있을까요 ?
헬롱 | 2022.09.30 | 추천 0 | 조회 30
헬롱 2022.09.30 - 30
42632 파워쿼리/피벗
New 파워쿼리 내에서 vlookup함수와 같은 기능이 없을까요? 엑셀파일첨부파일 (3)
월마리아 | 2022.09.30 | 추천 0 | 조회 46
월마리아 2022.09.30 - 46
42621 기능/도구
New 셀 하나당 그래프 하나를 만드는 방법이 궁금합니다. 첨부파일 (2) 답변완료
XD | 2022.09.29 | 추천 0 | 조회 45
XD 2022.09.29 - 45
42619 함수/공식
New 행방향으로으로 정열된 동일항목의 비고를 열방향으로 정열하는 방법 엑셀파일첨부파일 (8)
마운틴 | 2022.09.29 | 추천 0 | 조회 45
마운틴 2022.09.29 - 45
42618 VBA
New 블로그 문서 발행량 크롤링 서식을 다른 파일에서 이용하려면? 첨부파일 (3) 답변완료
XD | 2022.09.29 | 추천 0 | 조회 27
XD 2022.09.29 - 27
42612 함수/공식
New 다중 조건으로 하나의 결과값을 도출하고 싶습니다. 엑셀파일첨부파일 (2) 답변완료
배워배움 | 2022.09.29 | 추천 0 | 조회 38
배워배움 2022.09.29 - 38
42610 피벗테이블
New 엑셀 문서 재정리및 재정렬(부탁드려요 ㅠㅠ) 엑셀파일 (1)
u2y1gz71vdif | 2022.09.29 | 추천 0 | 조회 40
u2y1gz71vdif 2022.09.29 - 40
42607 기능/도구
New 엑셀 프로그램 2개를 하나의 파일로 합치는 방법이 있을까요? 엑셀파일 (2) 답변완료
노무인턴 | 2022.09.29 | 추천 0 | 조회 46
노무인턴 2022.09.29 - 46