이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
![[레벨:4]](http://abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:1613point (21%), 레벨:4/30"){kind=icon}
고수가되고파엑셀 2010이구요. 윈7입니다.예제의 코드는 같은데이타가 있으면 셀을 병합하는 코드입니다. '원본' 시트에서 영역을 선택한 후(A3:C12) 매크로를 실행하면 '실행후' 시트처럼 같은데이타가 있는 셀은 병합됩니다.('원본(2)' 시트의 B8셀, B9셀처럼 빈 셀이 있는 경우는 제외하고 실행됩니다. 즉, B8셀과 B9셀이 병합되지 않는다는 뜻입니다. ) 그런데 첨부된 코드는 선택영역이 A~C열일때만 매크로가 실행되는데요. 질의1)선택영역이 임의의 범위에서도 작동되도록 하려면 어떻게 수정되어야 할런지요? 질의2)선택영역이 다중영역일때도 작동하게 하려면 어떻게 수정되어야 할런지요?
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142053point, 레벨:30/30"){kind=icon}
아별
고수가되고파님..
안녕하세요? 오랫만이시네요..
새해 복 많이 받으세요.. ^^
셀 병합에 대해서 관심이 많으신 것 같습니다.
일단 질문 상황이 이해가 잘 안됩니다.
이미 작성된 코드의 수준과 질문의 수준이 너무 다르네요..
이 정도의 코딩을 할 수준이라면 질문의 내용은 스스로 해결할 수 있는 수준입니다.
기존의 코드는 이해하고 계신지 먼저 확인하고 싶습니다.
질문자의 이해 수준에 따라 답변의 내용도 달라지기 때문입니다.
우선 질문하신 코드를 직접 작성하셨다는 가정하에 답변 드립니다.
답변1)
아래 코드가 작업 범위를 A~C열만 대상으로 하게 한정하는 코드입니다.
전체를 대상으로 수정하시면 됩니다.
With Range("c3", Cells(Rows.Count, "a").End(xlUp))
답변2)
아래의 코드가 다중 영역이라도 첫번째 영역만 셀 병합시키는 코드입니다.
If f.Count > 1 Then f.Areas(1).Merge
다중영역 전부에 대해서 셀 병합을 하려면 각각의 For문으로 순환하면서 각각의 Area를 셀 병합시키세요..
감사합니다.