vba 셀 항목 조합하여 나열하기

VBA
작성자
구지호
작성일
2022-09-01 14:39
조회
107
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

질문 요약 : 엑셀 항목 조합하여 새로운 열에 나열하기

위처럼 중복 없이 항목 1의 첫 번째 요소에 항목 2의 요소들을 다 나열하고

항목 1의 다음 요소인 b에 항목 2의 요소들을 다 나열하여 상단 그림처럼 만들 수 있나요?

 

주목적은 항목 1의 요소가 100개 / 항목 2의 요소가 100개이면 총 100번의 복사 붙여넣기 대신

한번의 클릭으로 10000줄을 만드려고 합니다.

 

조합,, 순열이랑 항목2의 갯수를 세어서 그 갯수만큼 항목1을 반복해서 곱해보려고 했는데. 잘 되지않습니다.

항목 1과 2의 개수는 그때그때 달라져서 더 감이 안잡히는 거 같아요.

 

고수님들 도와주세요 ~!

 

스크랩
공유
전체 2

  • 2022-09-01 17:49
    채택된 답변

    @구지호 님 참고하세요

     

    Sub MakeCombi()
    
    Application.ScreenUpdating = False
    
        Range("D2", Cells(Rows.Count, "E").End(xlUp)).ClearContents
        Range("a1:b1").Copy Range("d1")
    
        Dim Item1 As Range
        Dim Item2 As Range
        Dim rA As Range
        Dim rB As Range
        
        
        Set Item1 = Range("A2", Cells(Rows.Count, "A").End(xlUp))
        Set Item2 = Range("B2", Cells(Rows.Count, "B").End(xlUp))
        
        
        Set Destination = Range("D2")
        Item2Count = Item2.Rows.Count
        
        
        Dim vArr
        ReDim vArr(1 To Item1.Rows.Count * Item2.Rows.Count, 1 To 2)
    
        Dim ypos As Long
        ypos = 1
        
        For Each rA In Item1
            For Each rB In Item2
                vArr(ypos, 1) = rA
                vArr(ypos, 2) = rB
                ypos = ypos + 1
            Next
        Next
        
        Range("d2").Resize(Item1.Rows.Count * Item2.Rows.Count, 2) = vArr
        
        
    
    Application.ScreenUpdating = True
    
    
    End Sub
    
    
    

     

    첨부파일 : Book1.xlsm


    • 2022-09-02 12:07

      @마법의손 님 감사합니다. 코드를 보면서 한번 이해하고 공부해보도록 하겠습니다!!

      정말 감사합니다 ~!


전체 7,856
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉 오피스 분야 30주 연속 1위! - 「 진짜쓰는 실무엑셀 」 전자책이 출간되었습니다! (12)
오빠두엑셀 | 2022.09.28 | 추천 6 | 조회 356
오빠두엑셀 2022.09.28 6 356
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (3)
오빠두엑셀 | 2022.08.04 | 추천 5 | 조회 1754
오빠두엑셀 2022.08.04 5 1754
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (98)
오빠두엑셀 | 2021.10.28 | 추천 126 | 조회 7529
오빠두엑셀 2021.10.28 126 7529
42747 함수/공식
New 다중 유효성 목록상자가 안되네요... 함수 점검을 요청드립니다. 엑셀파일첨부파일
회장님 | 00:20 | 추천 0 | 조회 17
회장님 00:20 - 17
42745 기능/도구
New 드롭다운에 대해 다시 한번 문의드립니다 엑셀파일 (1)
Dominica | 2022.10.03 | 추천 0 | 조회 16
Dominica 2022.10.03 - 16
42743 함수/공식
New 첨부와 같이 바꿀 대상을 찾지 못 했다는 창이 나타날 시 조치는 첨부파일 (1) 답변완료
구름나그네 | 2022.10.03 | 추천 0 | 조회 20
구름나그네 2022.10.03 - 20
42741 피벗테이블
New 피벗테이블 '나중에 레이아웃 업데이트'기능이 안됩니다. 엑셀파일첨부파일 (2)
월마리아 | 2022.10.03 | 추천 0 | 조회 19
월마리아 2022.10.03 - 19
42737 함수/공식
New 드롭다운과 INDEX MATCH 함수에 대해 문의드립니다 엑셀파일 (3) 답변완료
Dominica | 2022.10.03 | 추천 0 | 조회 32
Dominica 2022.10.03 - 32
42736 차트/그래프
New 예제 파일 다운 받아서 동영상 보고 따라할려고 예제 다운로드 하면 저렇게 나오는데요 첨부파일 (1)
희완 | 2022.10.03 | 추천 0 | 조회 19
희완 2022.10.03 - 19
42735 함수/공식
New 함수조언 구합니다. 시작월과 종료월 사이값을 기준으로 함수짜려합니다. 엑셀파일
엑셀공부중 | 2022.10.03 | 추천 0 | 조회 22
엑셀공부중 2022.10.03 - 22
42729 함수/공식
New 재무 함수를 잘 모르겠어요 ..
abcdr12**** | 2022.10.03 | 추천 0 | 조회 35
abcdr12**** 2022.10.03 - 35
42724 VBA
New 매크로 1출로 가능한 필터링 자동화 에서 (data 누락현상) 첨부파일 (7)
스타트67 | 2022.10.03 | 추천 0 | 조회 34
스타트67 2022.10.03 - 34
42720 피벗테이블
New 자료가 이런 모양이어도 피벗테이블 만드는 게 가능할까요? 첨부파일 (1)
신지 | 2022.10.03 | 추천 0 | 조회 43
신지 2022.10.03 - 43
42717 함수/공식
New 엑셀 표에서 특정 크기 이상만 별도 산출하는 법 (1)
naver_60fe15011326f | 2022.10.02 | 추천 0 | 조회 30
naver_60fe15011326f 2022.10.02 - 30
42715 함수/공식
New 엑셀 카드 내역 정리, 키워드 분류 자동화 공식 사용법 파일 오류 체크를 부탁 드립니다. 엑셀파일
엑셀 초보자 | 2022.10.02 | 추천 0 | 조회 31
엑셀 초보자 2022.10.02 - 31
42714 문서서식
New 엑셀 카카오톡 문자보내기 자동화 서식 (1)
vaikal | 2022.10.02 | 추천 0 | 조회 32
vaikal 2022.10.02 - 32
42710 기능/도구
New 메세지박스 3초후 자동 닫힘 (1)
임종수 | 2022.10.02 | 추천 0 | 조회 32
임종수 2022.10.02 - 32
42705 VBA
New VBA 네이버부동산 웹크롤링 Redim vaReturn(1 To r, 1 To c) 9 런타임 오류 발생 관련 엑셀파일첨부파일 (2)
이호일 | 2022.10.02 | 추천 0 | 조회 34
이호일 2022.10.02 - 34
42702 피벗테이블
New 피벗테이블에서 새로고침 후에 발생되는 문제 관련 문의드립니다. 첨부파일 (1)
바람의 영혼 | 2022.10.02 | 추천 0 | 조회 28
바람의 영혼 2022.10.02 - 28
42701 VBA
New get_DB 함수와 Filtered_DB 함수// ADODB 속도 문의 (2) 답변완료
hsb**** | 2022.10.02 | 추천 0 | 조회 28
hsb**** 2022.10.02 - 28
42696 VBA
New VBA 리스트박스 목록 선택 시 자동 누적 입력하기 안됨 해결방법 엑셀파일
GMART | 2022.10.01 | 추천 0 | 조회 34
GMART 2022.10.01 - 34
42695 파워쿼리/피벗
New 파워쿼리 병합 후 정렬에 대해서 질문드립니다. 엑셀파일첨부파일 (5)
월마리아 | 2022.10.01 | 추천 0 | 조회 39
월마리아 2022.10.01 - 39
42689 VBA
New 셀의 이미지를 복사하는 매크로... 첨부파일
실런 | 2022.10.01 | 추천 0 | 조회 36
실런 2022.10.01 - 36
42686 문서서식
New 영상 자료파일
뿌삐뿌찌빵꾸똥 | 2022.10.01 | 추천 0 | 조회 37
뿌삐뿌찌빵꾸똥 2022.10.01 - 37
42684 문서서식
New 조건부 서식 색 적용 안됨 첨부파일 (2)
아드키 | 2022.10.01 | 추천 0 | 조회 34
아드키 2022.10.01 - 34
42678 VBA
New VBA코드 오류뜨는데 왜 일까요ㅠㅠ 첨부파일 (2) 답변완료
엑셀공부중 | 2022.10.01 | 추천 0 | 조회 39
엑셀공부중 2022.10.01 - 39
42676 함수/공식
New 함수조언 구합니다. 엑셀파일 (1) 답변완료
엑셀공부중 | 2022.09.30 | 추천 0 | 조회 40
엑셀공부중 2022.09.30 - 40
42672 기능/도구
New 조건부 서식이 적용되지 않습니다. 첨부파일
dollffin | 2022.09.30 | 추천 0 | 조회 35
dollffin 2022.09.30 - 35
42670 피벗테이블
New 관계형데이터베이스 파워피벗 엑셀파일 (2) 답변완료
겸둥이 | 2022.09.30 | 추천 0 | 조회 45
겸둥이 2022.09.30 - 45
42669 함수/공식
New 출퇴근 자료를 이용하여 근태 테이블 작성하기 (index, match, iferror 함수 사용) 엑셀파일 (1)
공학 | 2022.09.30 | 추천 0 | 조회 44
공학 2022.09.30 - 44
42667 VBA
New M365 2206 버전의 VBA 자동화 오류 관련하여 문의를 드리고자 합니다
lililililil | 2022.09.30 | 추천 0 | 조회 27
lililililil 2022.09.30 - 27
42665 함수/공식
New if 함수 논리 설정 시 범위 선택 첨부파일 (2)
구찌갱 | 2022.09.30 | 추천 0 | 조회 36
구찌갱 2022.09.30 - 36
42664 문서서식
New 엑셀 날짜관련 질문드립니다. 첨부파일 (1)
엑셀잘할래요 | 2022.09.30 | 추천 0 | 조회 36
엑셀잘할래요 2022.09.30 - 36