셀 병합시 내용유지하기

 

 

 

 

셀 내용 합치기

 

엑셀로 작업을 하다보면, 각각의 셀을 합쳐야 하는 경우가 생깁니다. 이럴 경우 가장 먼저 떠올리는 것이 셀 병합인데요. 셀을 병합하게 되면, 하나의 셀을 제외한 나머지 셀의 데이터는 삭제가 됩니다. 때로는 내용을 유지하면서 셀을 병합해야 할 경우에는 난감하지요.

셀 내용 손실없이 셀병합하는 방법에 대해 설명드리겠습니다.

 

수식을 통해 셀 내용을 병합

주소가 시.도 구.군 등으로 각각의 셀에 입력되어 있을 경우, 이 주소를 한셀에 나타내고 싶을 경우 "&" 를 사용하면 되겠습니다.

병합하고자 하는 내용이 일정한 규칙을 가지고 있을 경우, "&"를 이용한 수식을 입력하여 수식을 복사하면 간편하게 내용을 합칠 수 있습니다.

 

 

매크로를 이용하는 방법

합치고자 하는 셀들이 위와 같이 일정한 규칙이 없을때는 매번 수식을 입력해야 하는 번거로움이 발생합니다.

작업해야 하는 범위가 크다면, 수식입력 도중 실수가 발생할 확률도 높아서 골치아픈 일이 아닐 수 없습니다.

이와 같은 경우 매크로를 사용하여 간단히 해결할 수도 있는데요. 아래 코드를 참고하시기 바랍니다.

 

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

 

매크로 실행 방법 ( Alt + F11, Alt + F8 )

매크로에 생소하신 분들에겐 위와 같이 코드만 덩그러니 있으면, 당황스러우실 것 같아 간단히 설명드립니다.

Alt+F11, Alt+F8 이 두가지 단축키가 중요합니다.

 

Alt+F11

VBA 작성창을 여는 단축키입니다. 엑셀창에서 단축키를 누르시면 아래와 같은 창이 뜬답니다.

삽입-모듈 을 실행하시면 좌측창에 Module1 이 생기고 우측에 코딩을 할 수 있는 빈창이 뜹니다. 이 빈창에다가 위의 코드를 붙여넣기 하시고 저장하시면 됩니다.

 아니면, 삽입-파일 을 실행한 후 다음 specialmerge.bas 파일을 업로드하시면 됩니다.

 

specialmerge.bas

 

내용유지 셀병합.bas

 

 

 

 

Alt+F8

매크로 실행을 위해 매크로를 불러오는 단축키입니다.

병합하고자 하는 셀들을 선택하신 후 매크로를 불러오기 위해 Alt+F8 을 누르시면 아래와 같이 창이 뜹니다. 이미 매크로를 업로드 해놓았기 때문에, specialmerge 매크로가 목록에 나타납니다. 실행을 누르시면 눈깜빡할 사이에 매크로가 실행되고 셀이 병합됩니다.

 

 

이상입니다.