병합된 셀을 해지하고 같은 값으로 채우기 매크로

엑셀 작업을 할때, 본의아니게 병합하기를 자주한다.
이 "병합하기" 가 눈으로 보기엔 상당히 깔끔해지는데, 해당 값을 다른 엑셀로 가져와서 각각 처리할때는 좀 난감할때가 많다.

그래서 다음과 같은 매크로를 찾아서(구글 곡괭이) 잘 사용하고 있다.
사용법은 원하는 열의 범위를 선택한 후 하기 매크로를 실행하면됨.

원문 링크) http://blog.naver.com/PostView.nhn?blogId=rosa0189&logNo=60133423514
==============
Option Explicit
Sub unMerge_and_Fill()
 dim rngC as Range
 dim r as Long
 application.screenupdating = false '화면 업데이트 중지
 with selection
 If.Cells.Count = 1 then ' 한셀만 선택시 매크로 중지
  Msgbox "한 셀만 선택함. 영역 재설정 후 실행
  Exit Sub
 End If
End With
For Each rngC in selection
 if rngC.MergeCells then
 with rngC.MergeArea
 .unMerge
 .Value = rngC
end with
r = r + 1
end if
Next
if r>0 then
 MsgBox "전체"  & r  & "개의 셀병합된 셀을 풀고 복사했음"
else
 MsgBox "선택 영역내에 병합된 셀이 없음", vbinformation, "병합된 셀 없음"
 Exit Sub
end if
End Sub
==============