VBA 병합된 셀 나누고 채우기

Sub unmergeAndSet()

Dim c As Range, WorkRange As Range, MergeCell As Range
Dim dup_value

Application.ScreenUpdating = False

Set WorkRange = ActiveCell.CurrentRegion (Activecell로 현재 선택된 셀로 되어있는데 범위 지정 등 다른 방식으로 바꿔서 사용도 가능)

For Each c In WorkRange

If c.MergeCells = True Then
dup_value = c.Value
Set MergeCell = c.MergeArea
c.MergeCells = False
MergeCell = dup_value

End if

Next

Application.ScreenUpdating = True

End Sub

 

선택되어 있는 셀이 병합되어있을 경우 모두 나누기를 하고 병합되어 있는 Cell값으로 채우기 되는 점 참고하세요

 

소스 실행 하기전

소스 실행 하고난 후