[VBA기초] 셀병합하기

엑셀의 셀을 2칸씩 셀병합을 자동으로 하는 VBA 코드이다.

Sub CellMerge()
    Dim r As Long, eRow As Long, n As Long
   
    eRow = Cells(Rows.Count, "A").End(3).Row   '// A열의 마지막행
    Application.DisplayAlerts = False
    With Range("A2:B" & eRow)
        .UnMerge    '// 셀 병합 해제
        For r = 2 To eRow Step 2   '// 2씩 증가
            n = n + 1  '// 순번
            Cells(r, "a").Resize(2).Merge  '// A열 병합
            Cells(r, "a") = n  '// 순번
            Cells(r, "b").Resize(2).Merge   '// B열 병합
        Next
    End With
    Application.DisplayAlerts = True
End Sub