엑셀 매크로 자동셀병합

사직동의 셀을 아래의 삼청동과 부암동 처럼 셀병합해야하는 경우가 생겼다. 각동들의 ROW숫자는 동일하고  각동은 

각 13건씩의 ROW를 가지고 있으며 반복해야할 카운트(동의 수)도 정해져있다. 그리고 병합해야할 셀은 C컬럼이다.

매크로 만들기를 한 후 코드부분에

For i = 1 To 100

    Range(Cells(((i * 13) - 12), 3), Cells(((i * 13) + 1), 3)).Merge

Next i

이렇게 작성하면 된다.

For문이기 때문에 이명령을 100번 반복한다. 100번동안 13열씩 병합하게된다. 참고로 Cells(i*13),3)에서 3이 C컬럼을 의미한다.

Sub Merge()
    va = "첫번째 셀내용"
    stno = 1
    edno = 0
    '헤더가 1ROW셀이므로 2ROW셀부터 병합체크
    For i = 2 To 100
        vb = LTrim(RTrim(Cells(i, 1)))
        If va <> vb Then
            edno = i - 1
            Range(Cells(stno, 1), Cells(edno, 1)).Merge
            stno = i
        End If
        va = LTrim(RTrim(Cells(i, 1)))
    Next i
End Sub