Excel 에서 행높이 일정 비율로 키우기

엑셀 사용 시, 흔히 겪는 문제 중 하나가 전체를 선택하여,

행이나 열 사이를 더블클릭하여 공백을 없애는 방법을 사용한다. 

 

하지만, 이와 같은 방법을 사용할 경우, 셀 한 칸에 여러줄의 텍스트를 입력하게 되면, 

인쇄 시에 글씨가 잘려서 잘 가독성이 떨어지게 된다.

 

간단하게 다음의 매크로를 활용하여 해결 할 수 있다. 

 

모든 행을 한줄씩 읽으면서 1.3배씩 늘려주는 코드이다. 

 

Sub Test()

    Dim rng As Range

    Dim C   As Range

    Set rng = Range("A1", ActiveSheet.UsedRange)

     rng.Rows.AutoFit 

    Application.ScreenUpdating = False 

    For Each C In rng.Resize(rng.Rows.Count, 1)  

        C.RowHeight = C.RowHeight * 1.3

    Next C

    Application.ScreenUpdating = True  
End Sub

 

코드 입력 절차는 다음과 같다.

 

보기 > 매크로 > 매크로 보기(V)

 

매크로 이름 설정 -> 만들기

 

코드 삽입 후 매크로 창 종료 (그냥 오른쪽 위 X 누르고 나가시면 됩니다.)

 

[실행방법]

 

행 높이를 일정하게 키우고 싶은 엑셀 탭 선택 후 다시 보기 > 매크로 > 매크로 보기 선택 > 실행

 

끝!!