[엑셀] 아랫 줄/뒤행 자료 유지하고 셀 병합하기!

썸네일

 

 

엑셀에서 셀 병합 시 데이터 유지하는 방법

엑셀에서 셀을 병합하면 첫 줄/행에 데이터만 남고 나머지 데이터는 사라집니다. 하지만 웹에서 데이터를 다운로드하여 가공할 때는 셀을 병합해도 아래 행/열의 데이터가 사라지지 않고 합쳐져야 할 때가 있습니다. 특히 동일한 패턴으로 2줄씩 다운될 경우 유용합니다.

VBA 코드

아래는 셀 병합 시 데이터를 유지하기 위한 유용한 VBA 코드입니다. 이 코드를 사용하면 선택한 셀의 데이터를 하나로 합쳐 첫 셀에 넣고 나머지 셀을 병합할 수 있습니다.

Sub SpecialMerge()
    Dim output As String
    Dim inputrange As Variant
    Const space = " "
    On Error Resume Next
    For Each cell In Selection
        output = output & cell.Value & space
    Next cell
    With Selection
        .Clear
        .Cells(1).Value = output
        .Merge
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With
End Sub
        

코드 설명

위 코드는 다음과 같은 작업을 수행합니다:

• 선택한 셀의 모든 데이터를 공백(space)으로 연결하여 하나의 문자열로 만듭니다.
• 선택한 셀을 지운 후 첫 번째 셀에 연결된 문자열을 넣습니다.
• 셀을 병합하고 텍스트를 중앙 정렬하고, 텍스트 줄 바꿈을 설정합니다.

VBA 코드 적용이 어려운 경우

코드 적용이 어려우시다면 별첨 파일 다운 받아 사용 하시면 됩니다. (2023년 1월31일 기준 실행 됨)

specialmerge.bas

0.00MB