-
데이터를 셀별로 나누기VB(A) 2019. 1. 17. 21:51
https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=319076651 에 올라온 질문입니다.
왼쪽의 표를 오른쪽 표처럼 바꾸고자 하는 질문입니다.
파워쿼리 또는 매크로를 이용하면 쉽게 해결할 수 있습니다.
코드 작성 흐름입니다.
1. B열을 순환하면서
2. , 를 기준으로 나누어 임의의 배열에 삽입합니다.
3. 삽입된 배열을 다시 순환하면서 D, E열에 출력합니다.
자세한 코드와 파일은 아래에 있습니다.
Sub Macro()Dim SingleRange As RangeDim tmp As VariantDim i As IntegerDim j As Integer'기존 자료를 삭제합니다.Range("D1").CurrentRegion.Clearj = 1'B열을 순환합니다.For Each SingleRange In Range("B1", Cells(Rows.Count, 2).End(3))'","를 기준으로 나누어 배열에 삽입합니다.tmp = Split(SingleRange, ",")'","를 기준으로 나뉜 배열을 순환하여 D, E열에 출력합니다.For i = 0 To UBound(tmp)Cells(j, "D") = SingleRange.Offset(, -1)Cells(j, "E") = tmp(i)j = j + 1Next iNext SingleRange'가운데 정렬 및 선 설정을 합니다.With Range("D1").CurrentRegion.Borders.LineStyle = xlContinuous.HorizontalAlignment = xlCenterEnd WithEnd Subcs 'VB(A)' 카테고리의 다른 글
명단 출석 체크 추출 및 참가자 명단 파악 (0) 2019.01.24 표 내용을 띄엄띄엄 복사 (0) 2019.01.18 [추가기능] 주소변환(지번주소, 도로명주소, 우편번호) (2) 2018.06.22 [정규식] 숫자를 한글로 변환 (0) 2018.02.23 도로명주소 가져오기 (0) 2018.02.13 댓글