병합할 셀크기가 일정하다면.. (첨부 예제에서 보면 3줄씩 동일하군요..) 한개에 대해서만 셀 병합을 하고,
병합된 셀을 복사한 다음에, 병합할 다른 셀틀을 모두 선택하고 선택하여 붙여넣기 > 서식 하시면 됩니다.
참 쉽죠~ ^-^;; (서식복사하기 기능(빗자루 모양 아이콘)을 사용해도 좋구요..ㅎㅎ)
내용추가 End --------------------------------------------------------------------------------------------------------------------------------
자.. 저렇게 작업할때.. 작업할 영역들의 개수가 많으면.. 좀 피곤하죠.. ㅋ
그럴땐 아래 코드를 이용해보세요.
우선 셀 병합을 할 영역 전체를 선택하고 아래 코드를 실행시킵니다.
선택된 영역 안에서 빈셀들을 선택하고, 선택된 각각의 영역을 바로 위에 있는 셀들과 함께 병합할겁니다.
Sub mergeBlankAreas() '선택된 영역안의 빈셀이 있으면 데이터가 있는 위쪽셀과 셀병합해주는 함수 'Created by http://abyul.com 'Created Date : 2010.02.13 02:13 Dim i As Integer Dim targetRange As Range Selection.SpecialCells(xlCellTypeBlanks).Select For i = 1 To Selection.Areas.Count Set targetRange = Application.Union(Selection.Areas(i), Selection.Areas(i).Offset(-1, 0)) targetRange.MergeCells = True Next i End Sub
![[레벨:25]](http://www.abyul.com/zbxe/modules/point/icons/default/25.gif "포인트:60769point (98%), 레벨:25/30"){kind=icon}
아별
개인적으로 셀 병합을 별로 좋아하지 않습니다만..
병합을 할 수 밖에 없을때도 있지요.. ^-^;;
암튼..
엑셀의 기본 기능으로는 별로 신통한 방법이 없습니다.
VBA를 사용하면 한방에 해결되지요.. ㅎㅎ
우선.. 작업해야하는 영역이 3개 이상 되면 저 아래 VBA코드를 사용해보시구요..
3개이하라면 아래 방법대로 하시는게 좋을 것 같습니다.
따로 떨어져서 선택된 영역은 각각 따로 병합됩니다. 한번에 한번씩 병합할 필요가 없는 것이지요..
내용추가(2010.02.16 00:14) ---------------------------------------------------------------------------------------------------------------
아참~ 엑셀의 기본 기능을 사용하는 방법에서 중요한걸 빼먹어서 내용 보충합니다.
병합할 셀크기가 일정하다면.. (첨부 예제에서 보면 3줄씩 동일하군요..) 한개에 대해서만 셀 병합을 하고,
병합된 셀을 복사한 다음에, 병합할 다른 셀틀을 모두 선택하고 선택하여 붙여넣기 > 서식 하시면 됩니다.
참 쉽죠~ ^-^;; (서식복사하기 기능(빗자루 모양 아이콘)을 사용해도 좋구요..ㅎㅎ)
내용추가 End --------------------------------------------------------------------------------------------------------------------------------
자.. 저렇게 작업할때.. 작업할 영역들의 개수가 많으면.. 좀 피곤하죠.. ㅋ
그럴땐 아래 코드를 이용해보세요.
우선 셀 병합을 할 영역 전체를 선택하고 아래 코드를 실행시킵니다.
선택된 영역 안에서 빈셀들을 선택하고, 선택된 각각의 영역을 바로 위에 있는 셀들과 함께 병합할겁니다.
'선택된 영역안의 빈셀이 있으면 데이터가 있는 위쪽셀과 셀병합해주는 함수
'Created by http://abyul.com
'Created Date : 2010.02.13 02:13
Dim i As Integer
Dim targetRange As Range
Selection.SpecialCells(xlCellTypeBlanks).Select
For i = 1 To Selection.Areas.Count
Set targetRange = Application.Union(Selection.Areas(i), Selection.Areas(i).Offset(-1, 0))
targetRange.MergeCells = True
Next i
End Sub
첨부파일을 참고하세요.
abyul_20100213_MergeCells-1.xls