엑셀 행높이 자동 설정 and VBA 를 이용한 행높이 자동 설정

엑셀 행높이 자동 설정

엑셀에 자료를 입력하고 나서 순서를 정렬해야 할 경우가 있습니다.

이럴 때 자동으로 행높이 정렬를 해두면 편리합니다.

행높이가 일정하게 18로 되어 있는 경우

비고란의 내용이 제대로 보이지 않는데요.

이를 해결하기 위한 방법은

엑셀에서 전체를 선택한 다음에 행과 행 사이에 마우스를 놓고 더블클릭을 합니다.

자동으로 늘어난 것을 볼 수 있습니다.

이걸 VBA 코드를 이용하여 한다고 하면 ....

[ 코드분석 ]

- 구간범위 rngAll 전체의 행높이를 자동으로 설정하면 정상적인 행간격은 16.5로 설정됨

- 행높이가 18보다 작은 셀인 경우에는 18로 설정하도록 반복 처리

Sub RowHeight_autofit()
    Dim rngC, rngAll As Range
   
    Application.ScreenUpdating = False
    Set rngAll = Range("A2:C" & Cells(Rows.Count, "A").End(3).Row)
    rngAll.EntireRow.AutoFit
    For Each rngC In rngAll
        If rngC.RowHeight <= 18 Then
            rngC.RowHeight = 18
        End If
    Next rngC
    Application.ScreenUpdating = True
End Sub

로 해주면 됩니다.