[엑셀 매크로] 셀 병합 하기

셀 병합 하기 - 엑셀 매크로

선택된 행들의 가로열 N개를 병합하고 싶을때 사용 하시면 됩니다.
예를 들어 설명해 보겠습니다.

위와 같이 주소열이 C~F 까지 4개의 열로 구성 되어 있습니다.
그냥 하려면 하나씩 드래그 해서 셀병합 버튼을 클릭해서 작업해야 하는데 이게 귀찮은 작업인거죠.

자 이제 매크로를 만들어 보겠습니다.

[보기 - 매크로 보기] 클릭하면 위와 같은 팝업창이 나타납니다.

매크로 이름에 셀병합 이나 혹은 자신의 맘에 드는 이름으로 입력하시고 만들기를 클릭하세요.

위와 같은 팝업창이 나타납니다.

아래의 코드를 복사해서 붙여 넣으세요. 이때 자신이 병합하고자 하는 열의 숫자는 변경해 주세요.

Sub 셀병합()
'경고창 끄기
Application.DisplayAlerts = False

'선택된 행 만큼 반복 하면서 N개의 열 병합하기
'여기서는 4개 열 병합
For i = 1 To Selection.Rows.Count
    Range(Selection.Cells(i, 1), Selection.Cells(i, 4)).merge
Next i

'경고창 복원
Application.DisplayAlerts = True
End Sub

그리고 저장을 해야 합니다. 저장시에 Excel 통합문서(*.xlsx) 로는 저장이 안됩니다.

그래서 Excel 97 ~ 2003(*.xls)로 해야 합니다.

이제 병합하고자 하는 행들을 드래그로 선택한 뒤에 매크로 보기에서 셀병합을 실행하면 각행들의 셀이 병합됩니다.