VBA 병합해제 후 내용 채우기

 

 

사용할 때 

Call 병합해제_후_내용채우기(4, 4, 783)

 

함수

Function 병합해제_후_내용채우기(ByRef row As Integer, ByRef col As Integer, ByRef LAST_ROW As Integer)
    '// row = 시작 점
    '// col
    '//----------------------------------------
    '// 넘버 : #2
    '// 날짜 : 2018-01-15
    '// 내용 : 셀 병합해제 한다음 해제한 부분의 내용을 채우기
    '//----------------------------------------
    Dim m As Workbook
    Dim ms As Worksheet

    Set m = Workbooks(ThisWorkbook.Name)        '// 워크북 지정
    Set ms = m.Sheets(ActiveSheet.Name)         '// 워크 시트 지정

    Dim rn As Range '// Range 사용 위한 선언
    Dim rng As Range
    
    Set rng = ms.Range(ms.Cells(row, col), ms.Cells(LAST_ROW, col))  '// 반복 할 범위

    For Each rn In rng
        If rn.MergeCells Then   '// 만약 병합 되어 있다면
            With rn.MergeArea   '// 병합 범위 병합 해제 후 내용 채우기
                .UnMerge
                .Value = rn
            End With
        End If
    Next

End Function