[VBA기초] 셀 병합하기 및 셀 병합 해제

셀 병합하기 및 셀 병합 해제

Sub MergeCells()
    Dim rngAll As Range     '// 선택영역 전체 범위 변수

    Dim iRow, iCol As Integer   '// 행, 열의 변수

    Dim rCnt As Integer      '// 병합할 셀의 크기 지정 카운트
      
    Set rngAll = Range([A2], Cells(Rows.Count, "C").End(3))
    Application.DisplayAlerts = False   '// 화면경고 중지
  
    For iCol = 1 To rngAll.Columns.Count
        For iRow = 1 To rngAll.Rows.Count
            If rngAll.Cells(iRow, iCol) = rngAll.Cells(iRow + 1, iCol) Then
                rCnt = rCnt + 1
            Else
                Range(rngAll.Cells(iRow, iCol), rngAll(iRow - rCnt, iCol)).Merge
                rCnt = 0
            End If
        Next
    Next
    Application.DisplayAlerts = True    '// 화면경고 복원
End Sub

Sub unMerge()
    Dim rngC As Range       '// 선택영역 각 셀을 넣을 변수
    Dim rngAll As Range      '// 선택영역 전체 범위 변수
   
    Set rngAll = Range([A2], Cells(Rows.Count, "C").End(3))
    rngAll.Cells.MergeCells = False   '// 범위의 셀 전체를 선택해서 병합 해제   
End Sub

첨부한 VBA 코드는 셀 병합, 병합 해제, 윗셀의 값으로 채우기, 병합해제 및 값으로 채우기 에 대한 VBA 코드입니다.

이 코드 하나면 간단하게 셀 병합 해제는 편리하게 이용할 수 있을 겁니다.

수정해서 사용할 곳은 위 주황색 부분의 범위구간 설정하는 곳입니다.

나머지는 그대로 이용하면 됩니다.

Cell_Merge_unMerge.vbs