-
[& Chronicle] 표 구조 바꾸기VB(A)/당근쨈 & Chronicle 2017. 5. 11. 21:26
위의 표를 아래처럼 변경하는 질문입니다.
행방향으로 된 데이터를 열방향으로 바꾸면 됩니다.
Chronicle님은 OFFSET, INDEX, MATCH, LARGE 함수와 보조열로 해결하였습니다.
- http://blog.naver.com/asaph16/221000026754
제가 풀이한 과정은 아래와 같습니다.
모든 데이터를 한 줄로 풀어낸 후에 빈 칸을 삭제하는 과정을 거쳤습니다.
오늘도 큰 힘 들이지 않고 코드 하나 날로 먹었네요.
Sub Macro()Dim SingleRange As RangeDim AllName As RangeDim tmpDim i As IntegerDim PasteRange As Range'이름 영역 및 붙여넣기 셀 지정Set AllName = Range("B2", Range("B2").End(4))Set PasteRange = Range("B9")'기존자료 삭제With PasteRangeIf .Value <> "" Then .CurrentRegion.ClearContentsEnd With'표의 모든 데이터를 한 줄로 출력For Each SingleRange In AllNametmp = SingleRange.Offset(, 1).Resize(, 4)With PasteRangeWith .Offset(i).Resize(4).Value = SingleRange.Offset(, 1) = Application.Transpose(Range("C1:F1")).Offset(, 2) = Application.Transpose(tmp)End Withi = .CurrentRegion.Rows.CountErase tmpEnd WithNext SingleRange'빈셀 삭제PasteRange.CurrentRegion.SpecialCells(4).EntireRow.DeleteEnd Subcs 'VB(A) > 당근쨈 & Chronicle' 카테고리의 다른 글
[& Chronicle] 연속근무 일수 구하기 (0) 2019.02.13 [& Chronicle] 원하는 글자 추출하기 (0) 2017.05.14 [& Chronicle] 일치하는 패턴 개수 (0) 2017.05.08 [& Chronicle] 그룹별 합계 구하기 (0) 2017.05.07 [& Chronicle] 파트별 생산 합계 구하기 (0) 2017.05.05 댓글