텍스트 손실 없이 셀 병합

설명

텍스트와 함께 병합해야 하는 셀이 많이 있다고 가정해 보겠습니다. Excel 표준 세트에는 "병합 및 가운데 맞춤"과 유사한 기능이 있지만 병합을 수행할 때 가장 바깥쪽 셀의 텍스트만 남습니다. 따라서 이러한 목적을 위해서는 자체 매크로를 사용해야 합니다.

VBA 매크로용 코드

이렇게 하려면 Visual Basic 편집기(Alt+F11)를 열고, VBA 모듈을 삽입하세요. (Insert - Module) 그리고 이 절차의 텍스트를 거기에 복사합니다.

Sub MergeCell()
    Const sDELIM    As String = " "
    Dim   rCell     As Range
    Dim   sMergeStr As String
    
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    With Selection
        For Each rCell In .Cells
            sMergeStr = sMergeStr & sDELIM & rCell.Text
        Next rCell
        
        Application.DisplayAlerts = False
        .Merge Across:=False
        Application.DisplayAlerts = True
        
        .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))
    End With
End Sub

저장하고 Excel로 돌아갑니다.

이제 필요한 셀을 선택하고 매크로(Alt+F8)(매크로 이름: "MergeCell")를 실행합니다.