엑셀 VBA - 병합하고 가운데 맞추기.

셀 3개씩 병합해보자.

 

1. 엑셀파일 만들기

 

2. 코드작성

Sub 병합하고가운데맞춤()
    
    Range(ActiveSheet.Cells(2, 4), ActiveSheet.Cells(2, 4 + 2)).Merge
    Range(ActiveSheet.Cells(2, 4), ActiveSheet.Cells(2, 4 + 2)).HorizontalAlignment = xlCenter
    
    Range("G2:I2").Merge
    Range("G2:I2").HorizontalAlignment = xlCenter
    
End Sub
 

 

3. 결과