VBA 항목별 행렬전환 문의

VBA
작성자
H.B
작성일
2022-01-25 10:57
조회
133
엑셀버전 : M365

운영체제 : 윈도우10

안녕하세요.

항목, N수를 하기와 같이 변동요인으로 넣고(수치가 매번 변합니다), 항목에 따라 항목별로 행렬전환해서

다른 셀에 붙여넣기 하고싶습니다.  나름대로 수치가 고정되어 있을떄는 VBA를 만들어서 가능했습니다만

(첨부파일 VBA참조) 수치가 변동될때는 어떻게 해야될지 막막하네요;;; 제가 만든 VBA참조해서 도움좀

받을 수 있을까요?

전체 6

  • 2022-01-25 16:25

    new_change VBA를 논리에 맞게 고쳤습니다.

    Sub new_change()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("예시2")
    
    Dim LNG, LNG1, i, j, m, mxrow As Long
    LNG = ws.Range("G1")
    LNG1 = ws.Range("G2")
    mxrow = ws.Range("B7").End(xlDown).Row
    
    Dim Arr As Variant
    ReDim Arr(1 To LNG, 1 To LNG1)  '좌측은 반복붙일 행의 수, 우측은 항목의 종류 = 열의 수
    
        For i = 7 To mxrow
            For j = 0 To LNG - 1    'j에는 행의 수를 담음
                For m = 0 To LNG1 - 1
                    Arr(j + 1, m + 1) = ws.Cells(i, 2 + j + m * LNG)
                Next
            Next
            Range(Cells(7 + LNG * (i - 7), 12), Cells(6 + LNG * (i - 6), 12)) = Cells(i, 1)
            ArrayToRng ws.Range("M" & 7 + LNG * (i - 7)), Arr
        Next
    
    End Sub
    

    첨부파일 검토해 보세요

    첨부파일 : 문의사항_행열변환매크로.xlsm


    • 2022-01-25 17:34

      @김학동 님 로직이 잘못된 파일이 올려져서 수정된 파일 올립니다.

      첨부파일 : 문의사항_행열변환매크로_수정.xlsm


  • 2022-01-25 15:21

    행렬 변환이 완료 되었다하더라도 원자료의 정보 항목에 아주 많은 A가 존재하는데 이것은 어찌 구분하나요?

    그저 표의 형식만 바꾸어 나타내고자 의도하는 건가요?


  • 2022-01-25 17:40

    김학동님! 관심가져주시고 의견주셔서 대단히 감사합니다!!!

    제 질문이 조금 부족했습니다만, 요는 하기 그림 처럼 N수와 항목수가 변동되고, 항목수별로 한 행에 N수를 횡 → 종으로 넣어주고, 정보는 N수 만큼 반복 붙여넣어주고 싶습니다. 용도는 상자수염 그래프 용으로 항목마다의 그래프를 그리고 싶어서요. 주신 VBA는 현행 수치만 대응되서 죄송합니다만 도움 부탁드려도될까요??

    문의사항_행열변환매크로-재질문.xlsm


    • 2022-01-25 18:10
      채택된 답변

      @H.B 님 변환된 파일 보냅니다.

      그런데 왜 시트마다 파일마다 [N수]와 [함목수]를 기록하는 셀이 마구 바뀌지요? 데이터가 출력되는 곳의 기준위치도 바뀌고...

      처리하느라 아주 애먹습니다. 댓글채택도 함께...

      첨부파일 : 행렬변환매크로_해법제안.xlsm


  • 2022-01-25 18:30

    대단히 감사합니다 김학동님^^!!! 큰 도움이 되었습니다.

    셀이 유동적으로 변해서요 주신 도움으로 해결되었습니다 감사합니다.


전체 6,403
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 진짜쓰는 실무엑셀 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (8)
오빠두엑셀 | 2022.04.30 | 추천 9 | 조회 1126
오빠두엑셀 2022.04.30 9 1126
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (62)
오빠두엑셀 | 2021.10.28 | 추천 79 | 조회 4438
오빠두엑셀 2021.10.28 79 4438
34219 기능/도구
New 주말 날짜가 적힌 셀의 행 일부분이 자동으로 색 채우기가 되는 방법 있나요? 첨부파일
forest choi | 00:59 | 추천 0 | 조회 15
forest choi 00:59 0 15
34218 함수/공식
New VLOOKUP 함수 여러개 값 가져오기에서 빈셀은 빼고 데이터가 작성된 것만 가져오기 문제 관련 첨부파일
moonlights | 00:26 | 추천 0 | 조회 16
moonlights 00:26 0 16
34213 함수/공식
New [vlookup] 다른 엑셀파일 출력값의 ture 값 색변경하기 첨부파일
pk2616 | 2022.05.19 | 추천 0 | 조회 14
pk2616 2022.05.19 0 14
34205 VBA
New [택배송장만들기] 수량만큼 행추가하고 복사하기 첨부파일 (1)
수메리안 | 2022.05.19 | 추천 0 | 조회 25
수메리안 2022.05.19 0 25
34204 파워쿼리/피벗
New 쿼리 평수값에서 m2 제거하고 숫자만 남길 수 있는 방법 있을까요? (1)
shxhehskc | 2022.05.19 | 추천 0 | 조회 26
shxhehskc 2022.05.19 0 26
34202 파워쿼리/피벗
New 쿼리파일에서 한 칸만 삭제하기
shxhehskc | 2022.05.19 | 추천 -1 | 조회 28
shxhehskc 2022.05.19 -1 28
34199 함수/공식
New 시간대별 여러 시트 값 합치기 첨부파일 (3)
sjlee**** | 2022.05.19 | 추천 0 | 조회 36
sjlee**** 2022.05.19 0 36
34197 함수/공식
New 일수를 개월 일로 나타나는 방법을 알려주세요 (1)
nab | 2022.05.19 | 추천 0 | 조회 25
nab 2022.05.19 0 25
34196 함수/공식
New 합계 구하기 _ 도와주세요... ㅠㅠ 첨부파일 (2)
연어샐러드 | 2022.05.19 | 추천 0 | 조회 28
연어샐러드 2022.05.19 0 28
34191 파워쿼리/피벗
New 하나의 열의 내용 중 중복되는 내용을 각각 다른 열에 배치할 수 있을까요? (1)
shxhehskc | 2022.05.19 | 추천 0 | 조회 25
shxhehskc 2022.05.19 0 25
34190 파워쿼리/피벗
New 쿼리 실행 중 몇개의 행만 첫 행을 머릿글로 사용하기 (2)
shxhehskc | 2022.05.19 | 추천 0 | 조회 24
shxhehskc 2022.05.19 0 24
34186 문서서식
New 문서 서식 글자 바뀌는것 질문 첨부파일 (1)
동준 | 2022.05.19 | 추천 0 | 조회 16
동준 2022.05.19 0 16
34185 문서서식
New 카드내역 다운받아 사용금액 합계를 했는데.. 합계가 안되네요 (1)
akdlt**** | 2022.05.19 | 추천 0 | 조회 23
akdlt**** 2022.05.19 0 23
34180 구글시트
New REGEXEXTRACT 첨부파일 (2) 답변완료
마법의손 | 2022.05.19 | 추천 0 | 조회 32
마법의손 2022.05.19 0 32
34179 대시보드
New 엑셀 하단에 시트이름 나온곳 넓게 쓰고 싶은데 고정안될까요? 첨부파일 (1)
태봉 | 2022.05.19 | 추천 0 | 조회 27
태봉 2022.05.19 0 27
34175 문서서식
New 빈칸 셀위에 색상표시? 첨부파일 (1)
km**** | 2022.05.19 | 추천 0 | 조회 27
km**** 2022.05.19 0 27
34174 VBA
New VBA changelink 이용하여 원본파일 변경 시, 워크시트도 같이 변경하는 방법 (3)
쿠킹왕자 | 2022.05.19 | 추천 0 | 조회 30
쿠킹왕자 2022.05.19 0 30
34171 구글시트
New 다른 시트에서 원하는 값 불러오기 (11)
나도엑셀천재? | 2022.05.19 | 추천 1 | 조회 45
나도엑셀천재? 2022.05.19 1 45
34169 함수/공식
New 오빠두 강의중 텍스트나누기 공식 질문드립니다. 첨부파일
월마리아 | 2022.05.19 | 추천 0 | 조회 40
월마리아 2022.05.19 0 40
34166 차트/그래프
New 누적 가로막대 차트 비율이 안맞습니다 첨부파일 (2) 답변완료
어제부터VBA | 2022.05.18 | 추천 0 | 조회 35
어제부터VBA 2022.05.18 0 35
34164 파워쿼리/피벗
New DRM걸린 문서를 오피스365 엑셀의 파워쿼리에서 처리하면 에러가 발생을 합니다. (1)
new**** | 2022.05.18 | 추천 0 | 조회 24
new**** 2022.05.18 0 24
34162 함수/공식
New 다른 시트와 연동, vlookup 함수 연동 오류 해결 방법ㅜㅜ
나도엑셀천재? | 2022.05.18 | 추천 1 | 조회 22
나도엑셀천재? 2022.05.18 1 22
34152 VBA
New 변수 선언에 필요한 변수명을 동적으로 만들 수 있나요? (Dynamic Variable Name) (7) 답변완료
나는나 | 2022.05.18 | 추천 0 | 조회 49
나는나 2022.05.18 0 49
34148 문서서식
New 엑셀 기본표시형식 설정 해결방법 (1)
zoe | 2022.05.18 | 추천 0 | 조회 30
zoe 2022.05.18 0 30
34146 피벗테이블
New 피벗테이블 열 합계 시 값이 다르게 나옵니다. 또한 한 아이템이 시간에 따라 2개의 가격을 가질 때 어떻게 처리를 해야하나요? 첨부파일 (1)
엽이 | 2022.05.18 | 추천 2 | 조회 28
엽이 2022.05.18 2 28
34144 함수/공식
New 음수를 제외한 양수들만으로 오름차순으로 순위 내는법 첨부파일 (1)
리테일러 | 2022.05.18 | 추천 0 | 조회 33
리테일러 2022.05.18 0 33
34143 함수/공식
New 평일 출근부 만들기 첨부파일 (3) 답변완료
왜사는건지 | 2022.05.18 | 추천 0 | 조회 43
왜사는건지 2022.05.18 0 43
34136 함수/공식
New 백분율의 합계? 백분율의 평균 값?이 다른이유가 있을까요? (4)
한다운 | 2022.05.18 | 추천 0 | 조회 29
한다운 2022.05.18 0 29
34135 함수/공식
New 음수를 제외한 양수들의 합만으로 순위 내는법 첨부파일 (8) 답변완료
리테일러 | 2022.05.18 | 추천 2 | 조회 51
리테일러 2022.05.18 2 51
34134 VBA
New VBA 필터 지정후 이미지 저장 문의 첨부파일 (6) 답변완료
다다익선 | 2022.05.18 | 추천 0 | 조회 36
다다익선 2022.05.18 0 36