해결 엑셀2016윈도우10

병합해제된 걸 다시 병합으로 만들 수 있나요?

yaho****

1월 26일 조회 924

이렇게 나눠진 데이터를 아래처럼

이런식 으로 다시 만드려면 좋은 방법이 있을까요?

행이 점점 늘어나니까 엄두가 안나네요 ㅠㅠ

#셀병합

마

마법의손 채택된 답변 1월 26일

파워쿼리로 병합후 피벗테이블하면 변환하기 쉬운 형태로 됩니다..

yaho**** 작성자 1월 26일

@마법의손 님 사랑해요 ㅠㅠ.. 앞에 0이 다 붙어있는 건 파워커리에서 어떻게 수정하면 될까요?

마

마법의손 1월 26일

@yaho**** 님

변환 - 서식 - 접두사

///////////////////////////////////

Sub MergeAndCopy()

Application.ScreenUpdating = False
    Dim r As Range    
    Set Area = Selection    
    With Area.Offset(0, 2).Resize(Area.Rows.Count, 4)
        .UnMerge
        .ClearContents
        .HorizontalAlignment = xlLeft
    End With
    For Each r In Area.Cells
        If r <> "" Then
            MergeSize = 4 - r.IndentLevel            
            r.Offset(0, 2 + r.IndentLevel).Resize(1, MergeSize).Merge
            r.Offset(0, 2 + r.IndentLevel) = r.Value
        End If
    Next
Application.ScreenUpdating = True
End Sub