[VBA기초] 셀 병합 해제하고 같은 값으로 채우기

셀 병합 해제하고 같은 값으로 채우기

아래 VBA 코드는 셀병합을 해제할 구간을 선택하고 셀병합전 값으로 채웁니다.

구간범위 설정하는 곳만 상황에 맞게 변경해주면 됩니다.

Sub unMerge_and_Fill()
    Dim rngC As Range          '// 선택영역 각 셀을 넣을 변수
    Dim rngAll As Range         '// 선택영역 전체 범위 변수
   
    Application.ScreenUpdating = False       '// 화면 업데이트 중지
    Set rngAll = Range([B2], Cells(Rows.Count, "C").End(3))
   
    For Each rngC In rngAll              '// 선택 영역을 순환
        If rngC.MergeCells Then         '// 선택 셀이 셀병합 되어 있다면
            With rngC.MergeArea            '// 셀 병합된 area를
                .UnMerge                   '// 셀 병합 해제
                .Value = rngC              '// 셀 병합 풀린영역 셀 병합전 값으로 채움
            End With
        End If
    Next   
    MsgBox "처리완료"
End Sub