[엑셀 VBA] 셀 내용 보존하면서 셀 병합하기

매크로 실행 동영상

• 여러 셀을 병합하면 첫 셀을 제외한 나머지 셀은 내용을 잃는다.
• 이 매크로는 병합 대상 셀의 모든 내용을 보존하면서 병합을 수행하는 매크로이다.
• 코드를 응용하면 조건에 따라 반복적인 보존병합을 수행할 수 있다. 꽤나 다양하게 응용 가능하다.

VBA Code 예시

Option Explicit
Sub merge_maintain_content()
Dim targetR As Range '병합 범위
Dim mergeStr As String '병합 내용 변소
Dim eachR As Range '셀 순환용 객체

Application.DisplayAlerts = False '병합시 대화창 Off

Set targetR = Application.InputBox("병합할 범위를 선택하세요", Type:=8) '병합범위 선택

For Each eachR In targetR '병합 범위의 각 셀을 순환하면서
  If mergeStr = "" Then '순환하는 첫 셀이면
    mergeStr = eachR.Value2
  Else
    mergeStr = mergeStr & Chr(10) & eachR.Value2 '각 셀의 내용 mergeStr에 저장
  End If
Next

targetR.Merge '병합하고
targetR = mergeStr '병합한 셀에 내용 삽입

Application.DisplayAlerts = True '병합시 대화창 On

End Sub

 Copyright (2018) Ruahneuma. All Rights Reserved.